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Preface 



This publication is for system programmers and IBM programming systems 
representatives. It explains when, why, and how to use IBM service aids 
to diagnose and fix failures in system or application programs. 

Each service aid is described in a separate chapter. The chapters 
are arranged so that the corresponding index tabs will appear in 
alphabetical order. The index tabs show the names of the programs minus 
the three-character component identifier (such as IMC) . The form of the 
name shown on the index tab also appears in the index to help you locate 
the chapter you want. i 

Some information about service aids is not included in this 
publication, but is covered in the following publications: 

IBM System/360 Operating System: 

• Service Aids Logic PLM . GY28-6721 — describes the internal logic of 
the service aid programs (how they work). 

• Programmer's Guide to Debugging , GC28-6670 — describes the 
dump- type output of the service aids. 

• Messages and Codes , GC28-6631 — describes the numbered messages 
issued by the service aids. 

You should also be familiar with the following publications: 

IBM System/360 Operating System: 

• Utilities , GC28-6586 — describes how to use utility programs to 
print certain types of service aid output. 

• Operator's Reference , GC28-6691 — describes how to perform certain 
basic operations, such as loading a stand-alone program. 

• Job Control Language Reference ,, GC28-6704 — describes how to use 
job control statements to override default parameters, use cataloged 
procedures, allocate space for data sets, etc. 



; 
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CONTENTS DIRECTORY 



Introduction 

Explains the service aid concept; guides selection of a service aid; 
summarizes the ways to retrieve service aids. 



Chapter 1: IFCDIPOO 

Initializes the SYS1.LOGREC data set. 



Chapter 2: IFCEREPO 

Summarizes and prints records from the SYS1.LOGREC data set. 



Chapter 3: GTF (Generalized Trace Facility) 

Traces selected system events such as SVC and I/O interruptions. 



Chapter 4: IMCJQDMP 

Operates as a stand-alone program to format and print the system job queue. 



Chapter 5: IMBLIST 

Formats and prints object modules, load modules, and CSECT identification records. 



Chapter 6: IMBMDMAP 

Maps load modules. 



Chapter 7: IMCOSJQD 

Operates as a problem program to format and print the system job queue. 



Chapter 8: IMDPRDMP 

Formats and prints dumps, TSO swap data set, and GTF trace data. 



Chapter 9: IMAPTFLE 

Generates JCL needed to apply a PTF and/or applies the PTF. 



Chapter 10: IMDSADMP 

Operates as a stand-alone program to produce a high-speed or 
low-speed dump of main storage. 



Chapter 11: IMASPZAP 

Verifies and/or replaces instructions and/or data in a load module. 



Appendix: Writing EDIT User Programs 

Tells how to write and use EDIT user programs. 



Each chapter has its own Table of Contents. 
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Summary of Amendments 

for GC28-6719-2 

OS Release 21 



GENERAL COMMENTS 

• Program Design information has been moved to a new publication, 
the Service Aids Logic PLM, GY28-6721. 

• Information relating to the Primary Control Program (PCP) has 
been deleted. 

• Chapter order has been revised to accomodate several new 
chapters. 

INTRODUCTION 

References to services aids as a SYSGEN option have been deleted. 

CHAPTER 1: IFCDIPOO 

IFCDIPOO has been moved from the Utilities SRL and rewritten. All 
information concerning the PARM parameter of IFCDIPOO has been 
deleted. 

CHAPTER 2: IFCEREPO 

IFCEREPO has been moved from the Utilities SRL and rewritten. All 
information concerning SDR records has been deleted. Information 
for the Reliability Data Extractor (RDE) and MES has been added. 

CHAPTER 3 : GTF (THE GENERALIZED TRACE FACILITY) 

GTF is a new feature of the operating system that executes as a 
problem program and is invoked by the START command. It traces 
selected system events, such as 10 interruptions, SIO operations, 
program interruptions, etc. A special feature of GTF, the GTRACE 
macro instruction, allows you to record user data in GTF's output 
buffers. GTF output can be printed and formatted using the EDIT 
function of IMDPRDMP, which is described in Chapter 8. 

CHAPTER 4 : IMCJQDMP 

This chapter is essentially unchanged. 

CHAPTER 5: IMBLIST 

IMBLIST is a new service aid that formats and prints object modules 
and CSECT Identification Records (IDRs) and maps load modules. It 
assumes the function of IMAPTFLS, a service aid which is no longer 
documented in this publication. 

CHAPTER 6: IMBMDMAP 

This chapter is essentially unchanged. 

CHAPTER 7: IMCOSJQD 

IMCOSJQD is a new service aid that dumps the system job queue data 
set (SYS1.SYSJ0BQE) , or formats and prints selected records from it. 
IMCOSJQD is identical in function to the IMCJQDMP service aid, but 
IMCOSJQD executes as a problem program whereas IMCJQDMP is 
stand-alone. 
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CHAPTER 8: IMDPRDMP 

IMDPRDMP now includes the EDIT function, which formats and prints 
GTF output. The parameters of the EDIT control statement, which 
invokes the EDIT function, allow you to select records to be 
formatted; some of the parameters are: JOBNAME= , IO= , EXT. 

The EDIT function also provides interfaces for user-written exit 
routines and format appendages. Exit routines examine every trace 
record to determine how it should be handled. Format appendages format 
and print specific types of user records. Information about how to 
write exit routines and format appendages is provided in the Appendix: 
Writing EDIT User Programs. 

CHAPTER 9: IMAPTFLE 

IMAPTFLE now allows you to include a Linkage Editor IDENTIFY control 
statement in the IMAPTFLE input stream; this is required for the 
application function and optional for the generate function. The 
purpose of the IDENTIFY statement is to flag specific CSECTs that 
are to be updated with PTFs. 

CHAPTER 10: IMDSADMP 

This chapter is essentially unchanged. 

CHAPTER 11: IMASPZAP 

IMASPZAP now provides a control statement, IDRDATA, that allows you 
to update the CSECT Identification Record of any module that is 
successfully updated with a REP operation. 

APENDIX: Writing EDIT User Programs 

This appendix provides all the information you need to write an exit 
routine or a format appendage for use with the EDIT function of 
IMDPRDMP and the GTRACE macro instruction. It describes the 
interfaces with EDIT, illustrates the use of the IMDMEDIT mapping 
macro instruction, shows samples of both exit routines and format 
appendages, discusses ways to avoid unrecoverable errors, and 
describes how to debug an exit routine. 

Please note that change bars are not used in any chapter described as 
"new" in this summary of amendments. 
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Summary of Amendments 

for GC28-6719-1 

as Updated by GN28-2478 

OS Release 20.1 



Item 



h 



| Description 



| Areas Affected 



H 



IMAPTFLE 
Improvements 



Permits IMAPTFLE to apply a PTF to OS/360 
directly. 



■+- 



235-241,243-245 



2305 and 3330 
Support 



Permits service aids to be used with these 
devices. 



-+- 



188,207,251 



-+ 



H 



Mu It ipr ocess ing 
Support 



Permits IMDSADMP to dump the contents of both 
CPUs of the IBM System/360 Model 65 
Multiprocessing System. 



159,166,173-177, 
179,180,184,185, 
187-189,191,194,195 



IMBMDMAP 
Improvement 



Me s s ag e i mpr ov ement . 



318 



IMAPTFLE 
Improvement 



Message improvement — blocks ize error. 



243 
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Summary of Amendments 
for GC28-6719-1 
OS Release 20 



Item 



Description 



Pages Affected 



h 



-+- 



System Generation 



Permits six service aids to be added to 
the operating system during system 
generation. 



2,16,17,183,280 



SVC Dump 



Permits IMDPRDMP to format and print 
system dumps. 



25,26,29,32,33,37-39 



System/ 370 



Permits service aids to be used with 
the IBM System/370. 



173-175,178-182,185, 
187-191,194,195,251 



J 



TSO 



j Permits IMDPRDMP to format and print 

j TSO dumps and swap data sets. 

I 



1,11,13,26,28,31,33,34, 

39,40,42,46,47,77,83, 

134-155 



1 



IMDSADMP Improvement j The address of the input dump device 

jean be specified from the operator 
j console. 



180,185 



Restriction 



(Release 20 IMAPTFLE will not process a 
j Stage I output tape from a release 
| before release 19. 



241,243 



IMDPRDMP Program DesignJThe "IMDPRDMP Program Design" section 

| of the "IMDPRDMP" chapter has been 
rewritten. 



25,56-71 



. + 

| The PRDMP PROCLIB procedure for calling 
I IMDPRDMP has been documented with 
j examples. 



PRDMP 



43,44 



IMDPRDMP Examples 



j Examples on how to use the IMDPRDMP 

| control statements and PRDMP PROCLIB 

j procedure are included in the 
j " IMDPRDMP" chapter . 



44-47 



MFT QCB Trace 



j IMDPRDMP formats and prints QCB traces 
jfor MFT users. 



28 



ONGO Clarification 



| When the ONGO verb of an IMDPRDMP 
j control statement has no parameters 
j specified, the original GO parameters 
| are restored: QCBTRACE , LPAMAP,, 
I FORMAT, and PRINT ALL. 



39 



65MP Clarification 



| Occasionally only one prefix is shown 
j on an IMDPRDMP listing. This occurs 
j when the dump is initiated on one CPU, 
(interrupted and then dispatched to the 
j other CPU. 



41 



Messages 



JA.11 messages have been altered, where 

j necessary,, to agree with the 

j publication IBM System/360 Messages and 



48-55, 192,, 193, 223- 227, 
24 2,243,266-268,285, 
286,315-318 



| Codes, GC28-6631. 



(Part 1 of 2) 
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Item 



h 



-+- 



Description 



Pages Affected 



Module Name 



For dumps that are formatted and 
printed by IMDPRDMP, the name of the 
module that invoked the dump is printed 
in the header of the dump listing. 



77-79,82, 83,102,120, 
135-137,156-158,160 



Output Comments 



| Within the IMDPRDMP formatted dump, a 

| numoer of output comments may be 

| printed to assist in reading and 

j interpreting the dump. These comments 

jare explained. 



77,83,161-167 



IMAPTFLE Region Size 



j IMAPTFLE requires a 46K region or 
j partition. 



236 



MFT LP A Maps 



JMFT link pack area maps do not include 
I resident SVC routines (IMBMDMAP) . 
-+- 



314 



Control Blocks 



Various changes have been made to 
| system control blocks tnat are 
| formatted and printed by IMDPRDMP, 



84,85,87,88,106,107 



Tables and Examples 



| Table and example numbers have been 
j converted to figure numbers. All 
| figures have been renumbered. See the 
I figure list in each chapter. 



All 



(Part 2 of 2) 
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Introduction 



Service aids are programs designed to help system programmers and IBM 
programming system representatives diagnose and fix failures in system 
or application programs. Service aids have three general functions: 

Information Gathering 

• To dump main storage, use the stand-alone program IMDSADMP. Its 
output can be formatted and printed using IMDPRDMP. 

• To trace system evenets such as SVC and I/O interruptions, use GTF 
(the Generalized Trace Facility). Its output can be formatted and 
printed using the EDIT function of IMDPRDMP. 

Formatting and Printing: Mapping 

• To summarize and print records in the SYSl. LOGREC data set, use 
IFCEREPO. 

• To format and print load module, use IMBMDMAP or IMBLIST. 

• To format and print object modules and CSECT identification records, 
use IMBLIST. 

• To format and print the system job queue, use IMCJQDMP (stnad-alone) 
or IMCOSJQD (problem program). 

• For format and print IMDSADMP output, other system dumps, TSO swap 
data sets, and GTF trace output, use IMDPRDMP. 

Generating and Applying Fixes 

• To apply a PTF, use IMDPTFLE. 

• To verify and/or replace instructions and/or data in a load module, 
use IMASPZAP. 

• To initialize the SYS1/L0GREC data set, use IFCDIPOO. 

For more detailed information about choosing a service aid, refer to the 
table in figure INTRO- 1. 
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INFORMATION GATHERING 



IMDSADMP 

1 . Dumps the contents of main storage to a tape, 
which can be formatted and printed using 
PRDMP. ( Note that IMDSADMP output may 
also be directed to a printer.) 

GTF (Generalized Trace Facility) 

1. Traces all system events. 

2. Traces selected events, such as I/O 
interruptions, SIO operations, etc. 

3. Traces user programs with GTRACE macro 
instruction. 



MAPPING, FORMATTING 
AND PRINTING 



IMDPRDMP 

1 . Formats and prints the following from SADMP 
high-speed output: 

a. Link Pack Area. 

b. Queue Control Block Trace. 

c. Major Control Blocks. 

d. Selected Areas of Main Storage. 

e. Operating System Nucleus. 

2. Formats and prints TSO control blocks and 
main storage from a SYS1.DUMP data set. 

3. Formats and prints TSO Swap data set(s). 



Formats and prints selected records from the 
GTF Trace data set or from trace buffers in a 
SYSl.DUMPor SADMP output data set. 
Records are selected by keywords such as: 

a. JOBNAME. 

b. I/O. 

c. SVC. 

d. SIO. 



IMBLIST 

1 . Lists specific object modules or load modules 
in a data set. 

2. Maps control sections and overlay structure 
and lists cross-references within a load module. 

3. Lists CSECT identification Records for 
specific load modules. 

4. Lists translation data, linkage editor 
modification data, or SPZAP modifications to 
control sections in a load module. 

IFCEREPO 

Selects, formats, and prints error records in the 
SYS l.LOGREC data set. 

1. Selects records by record type, such as: 

a. Machine check and/or inboard. 

b. Outboard, 

2. Selects records by device type or device 
address. 

IFCEREPO can also select records by model number 
or time of creation. 

IMBMDMAP 

1. Maps the operating system nucleus. 

2. Maps a failing module. 

3. Maps the link pack area. 



IMCJQDMP (Stand-Alone) and 
IMCOSJQD (Problem Program) 

1. Dumps entire SYS1.SYSJOBQE data set. 

2. Selects, formats, and prints job queue records 
associated with a specific job. 

3. Selects, formats, and prints job queue records 
associated with a specific work queue. 



PATCHING 



IMAPTFLE 

1 . Generates control statements and JCL needed 
to apply PTFs; the application function also 
invokes the linkage editor. 

IMASPZAP 

Verifies or replaces instructions or data in a load 
module stored on a direct access storage device. 

1 . Modifies code or data in a load module. 

2. Sets traps by inserting invalid instructions or 
user-written SVCs. 

3. Dumps load modules by CSECT to allow 
examination of the text. 

4. Dumps selected data to verify the count, key, 
and contents of the data. 

IFCDIPOO 

1. Reinitializes the SYS l.LOGREC data set if 
destroyed. (Can also be used to allocate 
more space to SYS1 .LOGREC.) 



Figure INTRO-1. Service Aids Symptom Table 
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Retrieving Service Aids 




All service aids except IMDSADMP and IMCJQDMP execute as problem 
programs under the operating system. They are automatically transferred 
to SYS1.LINKLIB during system generation. IMDSADMP and IMCJQDMP are 
stand-alone programs that must be retrieved from the distribution 
library before they can be used. 

Retrieving IMCJQDMP 

IMCJQDMP resides as an object module in distribution library 
SYS1.DN554A. Before you can load it into the system as a stand-alone 
program, you must retrieve it from the distribution library. To do this 
you can either transfer the module onto punch cards using the IEBPTPCH 
utiltiy, or copy it to magnetic tape using the IEBGENER utility. 

Retrieving IMDSADMP 

IMDSADMP resides as a macro definition in distribution library 
SYS1. MACLIB. The easiest way to retrieve IMDSADMP is to specify the 
MACLIB macro isntruction at system generation; IMDSADMP will 
automatically be transferred to the SYS1. MACLIB data set in the 
operating system. 

If you choose not to create a SYS1. MACLIB data set at system 
generation, you can retrieve IMDSADMP by three other methods: 

• If you want to retrieve IMDSADMP and execute it all in the same 
step, you can treat the distribution library as a private macro 
library. Figure INTRO-2 shows the job control statements needed to 
do this. 

• You can copy IMDSADMP from the distribution library into a private 
1 ibr ary . 

• You can punch IMDSADMP from the distrubtion library onto cards using 
the IEBPTPCH utility. 



//ASMS AD 


JOB 


MSGLEVEL=(1,1) 


//STEP 


EXEC 


ASMFC 


//ASM.SYSLIB 


DD 


DSN=SYS1. MACLIB, DISP=OLD 


//ASM.SYSIN 


DD 


* 


IMDSADMP 






END 






/* 







Figure INTRO-2. Sample JCL Statements Need to Assemble IMDSADMP 
Directly from the Distribution Library 
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Chapter 1: IFCDIPOO 

Initializes the SYS1.LOGREC data set. 
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Introduction 



IFCDIPOO is a service aid that runs under the IBM System/360 Operating 
System. IFCDIPOO has three applications: 

1. Initializing the SYS1.LOGREC data set during system generation. 
This application is discussed in the publication IBM System/360 
Operating; System Generation. 

2. Reinitializing the SYS1.LOGREC data set. During processing, some 
types of errors may destroy the SYS1.LOGREC header and make the data 
set unusable; IFCDIPOO can then be used to reinitialize the 
SYS1.LOGREC data set. 

3. Modifying the space allocation for the SYSl.LOGREC data set. In 
some situations, the SYSl.LOGREC data set may be too large or too 
small for the system using it; IFCDIPOO can then be used to increase 
or decrease the space allocation for SYSl.LOGREC. 
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Input to IFCDIPOO 



The input to IFCDIPOO consists of the SYS1.LOGREC data set and job 
control statements. 

The SYS1.LOGREC Data Set 

The SYSl-LOGREC data set consists of a header record followed by 
environment records. 

The header record is created by IFCDIPOO; it keeps track of the 
number and location of the environment records. 

The environment records are generated by the outboard recording 
routine (OBR) , the miscellaneous data recorder (MDR) , the recovery 
management routines MCH and CCH, and the reliability data extractor 
program RDE, and the environment recording routines SERO and SER1. Each 
record reflects the condition that prevailed in the system when an error 
occurred. 



Job Control Statements 

IFCDIPOO is run and controlled by job control statements; no user or 
utility control statements are needed. 
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Running IFCDIPOO 



You run IFCDIPOO by providing job control language procedures to 
reinitialize and reallocate the SYS1.L0GREC data set. The following 
sections contain detailed examples of reinitializing and reallocating 
SYS1.LOGREC. 



Reinitializing SYS1.L0GREC 

Figure DIP00-1 is an example of the job control statements needed to 
reinitialize the SYSl.LOGREC data set using IFCDIPOO. 




//INSERLOG 


JOB 


// 


EXEC 


//SERERDS 


DD 



PGM= IFCDIPOO 

DSNAME=SYS1.L0GREC # UNIT=2311,DISP- (OLD, KEEP) , 
// VOL=SER=llllll 

Figure DIP00-1. Reinitializing the SYSl.LOGREC Data Set 

Control Statements for Figure 1 

The JOB statement initiates the job; the job name INSERLOG has no 
signifigance. 

The EXEC statement specifies the program name (PGM=IFCDIPOO) . 

The SERERDS DD statements specifies the output (SYSl.LOGREC) data set; 
the DSNAME must be SERERDS. 

Changing Space Allocation for SYSl.LOGREC 

IFCDIPOO may be used in conjunction with the IEHPROGM utility to 
increase or decrease the space allocated for the SYSl.LOGREC data set. 
First the SYSl.LOGREC data set is scratched and uncataloged, using 
IEHPROGM; then, using IFCDIPOO, the data set is reallocated with 
increased or decreased space specifications; and, finally, the newly 
allocated data set is reinitialized. 

If you use the preceding procedure and an error occurs after the 
SYSl.LOGREC data set has been scratched, but before it has been 
reallocated, the IFCDIPOO job will be terminated and the system will be 
marked ineligible for IPL procedures. To solve this problem, do one of 
the following: 

• Use the IBCDMPRS utility to restore the system and thereby restore 
the SYSl.LOGREC data set. After the SYSl.LOGREC data set has been 
restored, you can reinitialize the system and reallocate SYSl.LOGREC. 

• Execute the reallocate operation on another IBM System/360 Operating 
System, if one is available. 
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Figure DIPQG-2 is an example of reallocating the SYSl. LOGREC data set. 



//RELGREC 


JOB 


//SCR 


EXEC 


//DD1 


DD 


//SYSIN 


DD 


SCRATCH 




UNCATLG 




/* 




//R 


EXEC 


//SERERDS 


DD 


// 





PGM=IEHPROGM 

UNIT=2311 f VOLUME=SER=llllll,DISP=OLD 

* 

DSNAME=SYSl. LOGREC, VOL=23 11=111111 

DSNAME=SYSl. LOGREC 

PGM=IFCDIPOO 

DSNAME=SYS1. LOGREC, UNIT=2311 r DISP= (NEW,CATLG) , 

VOL=SER= 111111, SPACE= (allocation, CQNTIG) 



Figure DIP00-2. Changing the Space Allocation for SYSl. LOGREC 
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Chapter 2: IFCEREPO 

Summarizes and prints records from the SYS1.LOGREC data set. 



EREPO 
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Introduction 



IFCEREPO is a service aid that runs under the IBM System/360 Operating 
System. You can use IFCEREPO to: 

• Select and format environment records from the SYS1.LOGREC data set 
and write them to an output device. The environment records on the 
SYS1.L0GREC data set are generated by the error environment 
recording programs OBR, SERO, SER1, MDR, by the recovery management 
programs CCH, and MCH, and by the reliability data extractor program 
RDE. 

• Select environment records from the SYS1.LOGREC data set and 
accumulate them on a history data set. 

• Write the records accumulated on the history data set to an output 
device. 

• Summarize the information contained in the records on the 
SYSl.LOGREC data set or the history data set. 

• Process (edit, write, accumulate, and summarize) records produced on 
different machine models. 

Editing and Writing Selected Records 

You can use IFCEREPO to retrieve selected environment records from the 
SYSl.LOGREC data set or a history data set, edit them, and write them to 
an output device. After the record is written to the output device, it 
is cleared to hexadecimal zeros on the SYSl.LOGREC data set unless you 
specify otherwise. If the input data set is the history data set, the 
records remain unchanged. The selection of records that IFCEREPO will 
process is based on the following factors : 

• Record type: you can specify any type of environment record, or any 
combination of types. 

• Model number: you can specify the model number of any computing 
system that is writing records on the SYSl.LOGREC data set; this 
specification is useful when several computing systems are writing 
records on the same SYS.LOGREC data set. 

• Time period: you can specify that IFCEREPO only process records that 
were generated on certain dates. 

• Devices: you can specify that IFCEREPO process records that are 
related to a specific device or device type. 

Accumulating Selected Records 

You can use IFCEREPO to move selected environment records from the 

SYSl.LOGREC data set to a history data set; this enables you to 
accumulate specific types of environment records on different volumes or 

on the same volume. When you move an environment record from the 

SYSl.LOGREC data set to the history data set, the environment record or 

the SYSl.LOGREC data set, is cleared to hexadecimal zeros unless you 
specify otherwise. 
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Summarizing Selected Records 

You can use IFCEREPO to extract pertinent data from selected records and 
print the data in the form of a summary. The contents of the summary 
depend on the type of error you monitor. 

Processing Records Produced on Different Machine Models 

You can use IFCEREPO to edit, write, summarize, and accumulate 
environment records for any IBM System/360 or IBM System/370 model that 
supports the IBM System/360 Operating System. In addition, any 
SYS1.L0GREC data set or history data set generated on one system can be 
printed on another system. 
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Input to IFCEREPO 



The input to IFCEREPO consists of environment records located on the 
SYS1.LOGREC or history data sets. 

Environment Records 

5fou can use IFCEREPO to process six types of environment records: 

1. Machine check records - which are produced and stored in SYS1.L0GREC 
by the system environment recorders SERO and SER1, and by the 
machine check handler (MCH) . They record machine check 
interruptions caused by malfunctions in the central processing unit. 

2. Inboard records - which are produced and stored by SERO, SER1, and 
by the channel check handler (CCH) . They record input/output 
interruptions caused by specific channel failures. 

3. Outboard records - which are produced and stored by the outboard 
recorder. They record permanent errors on input/output devices, and 
terminal statistics and errors for TCAM. 

4 . Miscellaneous data records - which are produced and stored by the 
miscellaneous data recorder (MDR) . They record errors that are not 
reflected in any other record type. 

5. System initialization (IPL) records - which are produced and stored 
in the SYS1.L0GREC data set by the reliability data extractor (RDE) 
programs. They record information related to each system 
initialization. 

6. System termination (EOD) records - which are produced and stored in 
the SYS1.L0GREC data set by the reliability data extractor (RDE) 
programs. They record information related to each system 
termination. For a complete explanation of RDE see the publication, 
IBM System/360 Operating System: RDE Guide, GC28-6741. 



EREPO 
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Running and Controlling IFCEREPO 



5fou run and control IFCEREPO by job control statements and by specifying 
keyword parameters on the EXEC statement of your IFCEREPO procedure; no 
user or utility control statements are needed. 

Job Control Statements 

IFCEREPO Figure 1 shows the job control statements necessary for running 
IFCEREPO. 



Statement 



Usage 



JOB 
Statement 

EXEC 
Statement 



SERLOG DD 
Statement 



ACCIN DD 



EREPPT DD 
Statement 

ACCDEV DD 
Statement 



This statement initiates the job. 



This statement specifies the program name and keyword 
parameters necessary to control the function of the 
program. 

This statement defines the input data set as being the 
SYS1.L0GREC data set. Either a SERLOG DD statement or the 
ACCIN DD statement must be included for each application of 
the IFCEREPO program. 

This statement defines the input data set as being 
a history data set. Either an ACCIN DD statement or 
the SERLOG DD statement must be included for each 
application of the IFCEREPO program. 

This statement defines the edited output data set. It 
must be included with each application of the program. 

This statement defines an accumulated output data set. 
The accumulated data set can reside or magnetic tape or 
a direct access device. Space must be allocated for a 
new output data set that is to reside on a direct access 
volume- Space cannot be allocated for an existing output 
data set. 



Notes: The SERLOG, ACCIN, EREPPT, and ACCDEV DD statements define 
sequential data sets. 

If records produced on different machine models are to be 
processed, a JOBLIB DD statement is required to define the 
original system's link library. 



Figure EREPO-1. Job Control Statements 
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Keyword Parameters for IFCEREPO 

You can specify the following keyword parameters to control the 
functions of the IFCEREPO program. 



PARM= 



[TYPE [M] [C] [0] [T] [I] [E] ,] 
[MOD= ( nnn [ , nnn . . . ] ) , ] 



IN 
MES=}Y 



[VOLID= (V0LID1 ,V0LID2 ,V0LID3 ,V0LID4) ] 

[CUA=(CUU[,CUU]) ,] 

[DEV=NNNN,] 

[DATE= ( [YYDDD] [ , YYDDD] ) , ] 



^\ 



r \a\ 

[_ZERO=|Y j,J 



-<r 



EREPO 



PS 

PRINT=)PT 

SU 

NO 

[acc=Jn|,J 

|hist=|y j,J 

[TERMN=l-8 chars,] 

[m67=]2 \,\ 
|_RDESUM=j Y j ,J 



r 



j 



TYPE 



specifies the type of records to be processed. 

Code Meaning 

M Machine-check records 

C Channel inboard records 

I/O outboard records 
T T-type records 

1 IPL Records 

E EOD Records 

A combination of records can be specified. For example, 

PARM=(TYPE=MC, ). If no record type is specified, all record types 

are processed. 
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MOD 



indicates that all records created on the model or models specified 
are to be processed. The operand is to be right justified and may 
be up to three digits in length. 

MES 

indicates that error statistics for specific volume/serials are to 
be summarized and printed. This parameter is valid only for the 
3410 and 3420 tape subsystems, when "TYPE^* is coded, or when no 
record type is specified. 

VOLID 

indicates specific volumes for error statistics (MES) processing. A 
maximum of four volumes can be specified. If this parameter is not 
coded and MES=Y is coded, all volumes will be processed. 

If no model numbers are specified all models are accepted for 
processing. 

CUA (maximum of two) 

indicates that the selected record types that are related to the 
specific channel(s) and unit(s) are to be processed. 

DEV (maximum of one) 

indicates that selected record types that are related to a specific 
device type are to be processed. 

if DEV is not specified, all selected records (as specified in the 
TYPE subparameter) are processed regardless of the device type. 

if DEV =3410 or DEV =3420 is specified, both devices will be 
included in the report. 

DATE (maximum of one set) 

indicates that all of the selected record types generated within a 
specific period of calendar time are to be processed. The date is 
written yyddd yyddd where yyddd represents the year and the day 
(of the year) when the time period begins and yyddd represents the 
year and the day when the period ends. 

If no date is specified, all selected records are processed 
regardless of when they were generated. 



ZERO 



indicates whether input records in the SYS1.LOGREC data set are to 
be cleared with hexadecimal zeros after they are processed. Records 
are not cleared to zeros in the history data set. 

Note : It is possible to use the same operating system on several 
machines. Before moving the system packs to another machine, the 
operator must use the EREP program to copy the SYSl.LOGREC data set 
to tape so that the environmental data can later be related to the 
system that generated it. 
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PRINT 

indicates how records are to be processed and written. 

Code Meaning 

SU Suppress full printing (print summary only). 

PT Suppress summary printing (print full record only) . 

NO Suppress full printing and summary printing. 

PS Print full record and summary. 

ACC 

indicates whether selected records are to be accumulated in a 
history data set. If ACC=Y is coded; ZERO=Y must be coded if the 
input data set is SYS1.L0GREC. 

HIST 

indicates whether the input data set is a history data set. If 
HIST=Y is coded, the input data set must be defined with an ACCIN DD 
statement . 

If HIST is not coded HIST=N is assumed and the input data set will 
be the SYS1.L0GREC data set. 

TERMN 

indicates the OBR and TCAM records are to be selected by terminal 
name. Up to eight characters may be specified. 

If TERMN is not coded all terminal names are selected. 
M67 

indicates which Model 67 records are to be processed. 

If M67 is not coded mod 1 Model 67 records are processed. 

RDESUM 

indicates that the IFCEREPO summary function for RDE records is to 
be run. The summary function produces an IPL report and a hardware 
error report. This parameter can be coded only if RDE has been 
selected during system generation. For a complete explanation of 
RDE see the publication IBM System/360 Operating System: RDE Guide, 
GC28-6741. 
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IFCEREPO Examples 



The following examples show some of the typical uses of the IFCEREPO 
program. 

Example 1: Printing Machine Check Records 

In this example: 

• Machine check records are printed in a full record format. 

• The records on SYS1.LOGREC are zeroed. 



//JOBA JOB 

// EXEC PGM= IFCEREPO, PARM= f TYPE=M, ZERO=Y,PRINT=PT,ACC,=N' 

//SERLOG DD DSNAME=SYSl.LOGREC,DISP= (OLD, KEEP) 

//EREPPT DD SYSOUT=A 



Control Statements for Example 1 

The EXEC statement specifies (1) that machine check records are to be 
processed, (2) the type of printout (full record) , (3) no accumulation 
is to take place. 

The SERLOG DD statement defines the input (SYSl.LOGREC) data set. 
The EREPPT DD defines the edited output data set (printer assumed). 
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Example 2: Writing Machine Check Records onto a 7-Track Magnetic Tape 

In this example: 

• Date- dependent machine check records are written in full record and 
summary formats onto a 7-track magnetic tape at a density of 200 bits 
per inch. 

• The SYS1.LOGREC data set is zeroed. 



//JOB 
// 

//SERLOG 
//EREPPT 

/* 



JOBA 

EXEC PGM=IFCEREPO,PARM= , TYPE=M,DATE=( 62110, 62117), 

ZERO=Y , PRINT=PS, ACC=N ' 
DD DSNAME=SYSl.LOGREC,DISP= (OLD, KEEP) 
DD DSNAME= ERRDATA , UNIT= 2400-2, LABEL= ( , NL) , 

DCB= (DEN=0 ,TRTCH=C) , DISP=(NEW, CATLG) 




Control Statements for Example 2 

The EXEC statement specifies (1) that machine check records are to be 
processed, (2) the type of printout (full record and summary), (3) the 
applicable time period, and (4) that no accumulation is to take place. 

The SERLOG DD statement defines the input (SYSl. LOGREC) data set. 

The EREPPT DD statement defines the output data set. 
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Example 3: Printing and Accumulating Machine Check and Channel Inboard Records 

In this example: 

• Machine check and channel inboard records are printed in a full 
record and summary format. 

• Machine check and channel inboard records are accumulated on a 
history data set. 

• The records on SYSl.LOGREC are zeroed. 

//JOB JOBA 

// EXEC PGM=IFCEREP0,PARM= , TYPE=MC,ACC,Y,PRI^IT=PS,ZERO=Y , 

//SERLOG DD DSNAME=SYSl.LOGREC,DISP=( OLD, KEEP) 

//EREPPT DD SYSOUT=A 

//ACCDEV DD DSNAME=ACUMSET,UNIT=2311,DISP=(NEW,CATLG) , 

V0LUME=SER=111112,SPACE=(TRK, (40,10)) 
/* 

Control Statements for Example 3 

The EXEC statement specifies (1) that machine check and channel inboard 
records are to be processed, (2) the type of printout (full record and 
summary), and (3) accumulation on a history data set. 

The SERLOG DD statement defines the input (SYSl. LOGREC) data set. 

The EREPPT DD statement defines the output data set. 

The ACCDEV DD statement defines the accumulated (history) output data 
set. The set is cataloged for ease of retrieval. 
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Example 4: Printing and Accumulating Machine Check Records Contained in a 
History Data Set 

In this example: 

• Machine check records in the history data set are printed in a full 
record format. 

• Machine check records in the history data set are moved to a second 
(output) history data set. 

//JOB JOBA 

// EXEC PGM=IFCEREPO,PARM= , TYPE=M r HIST=Y r PRINT=PT,ACC=Y , 

//ACCIN DD DSNAME= HISTRYIN , DISP= ( OLD, CATLG) 

//EREPPT DD SYSOUT=A 

//ACCDEV DD DSNAME=EXISTACC,DISP= (MOD, CATLG) 

/* 

Control Statements for Example 4 

The EXEC statement specifies (1) that machine check records are to be 
processed, (2) a history data set is the input data set, (3) the type of 
printout full record, and (4) accumulation. 

The ACCIN DD statement defines the input (history) data set. 

The EREPPT DD statement defines the output data set. 

The ACCDEV DD statement defines the accumulated (history) output data 
set. 



EREPO 



Chapter 2: IFCEREPO 39 



Example 5: Printing Recently Generated Machine Check Records and 
Accumulated Machine Check Records 

This example is a two-step job. Together the job steps produce a 
printout of machine check records from the SYS1.LOGREC data set and 
machine check records from a history data set. 

In the first job step (STEP1) : 

• Machine check records on SYSl.LOGREC are edited and printed in a 
full record format. 

• Machine check records on SYSl.LOGREC are accumulated on a history 
data set . 

• The records on SYSl.LOGREC are zeroed. 
In the second job step (STEP 2) : 

• Machine check records in the history data set, updated in STEP1, are 
printed in a full record format. 

//JOBA JOB 

//STEP1 EXEC PGM=IFCEREP0,PARM=•TYPE=M,PRINT=PT,ACC=Y,ZERO=Y , 

//SERLOG DD DSNAME=SYSl.LOGREC,DISP=(OLD,CATLG) 

//EREPPT DD SYSOUT=A 

//ACCDEV DD DSNAME= HISTORY, DISP= (MOD, CATLG) 

/* 

//STEP2 EXEC PGM=IFCEREPO,PARM= , TYPE=M,PRINT=PT,HIST=Y,ACC=N , 

//ACCIN DD DSNAME=HISTORY,DISP=(OLD,CATLG) 

//EREPPT DD SYSOUT=A 

/* 

Machine Records (for comparison) 

Control Statements for Example 5 

STEP1 

The EXEC statement specifies (1) that machine check records are to be 
processed, (2) the type of printout, and (3) accumulation. 

The SERLOG DD statement defines the input (SYSl.LOGREC) data set. 

The EREPPT DD statement defines the output data set. 

The ACCDEV DD statement defines the accumulation (history) data set. 

STEP2 

The EXEC statement specifies (1) that machine check records are to be 
processed, (2) a history data set is the input data set, (3) the type of 
printout (full record), and (4) no accumulation. 

The ACCIN DD statement defines the input (history) data set. 

The EREPPT DD statement defines the output data set. 
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IFCEREPO Output 



You can use IFCEREPO to write output to any output device supported by 
the basic sequential access method (BSAM) . The output is written as 
120-byte records with a control character as the first character of each 
record. After the records are written to the output device, they are 
normally cleared to hexadecimal zeros in the SYS1.L0GREC data set; the 
space occupied by the cleared records cannot be reused until the entire 
SYSl.LOGREC data set is cleared. You can, however, specify that the 
records remain uncleared in your procedure for running IFCEREPO. 

Format of Edited Records 

Figure EREPO-2 shows the printed format of an edited output record. 



EREPO 



Program heading 
Program section 
Model 

Source Record type 

Record data 
Additional data 



Figure EREPO-2. Output Record Printout Structure 

Program heading 

identifies the IFCEREPO program on the first page of the listing: 

• ENVIRONMENT RECORD EDITING AND PRINTING PROGRAM 

Program section 

identifies the program section that is generating the printout. 
Valid program sections are: 

• CPU (MC) DATA EDITING AND PRINTING SECTION 

• INBOARD DATA EDITING AND PRINTING SECTION 

• OUTBOARD DATA EDITING AND PRINTING SECTION 

• MDR DATA EDITING AND PRINTING SECTION 

• TCAM OUTBOARD DATA EDITING AND PRINTING SECTION 

Model 

identifies the IBM System/360 Model or System/370 for which the 
printout is applicable. Valid entries are: 

• Model 40, 50, 65, 67, 75, 85, 91, 95, 135, 145, 155, 165, or 
195 for machine-check records. 

• Model 40, 50, 65, 75, 85, 91, 95, 135, 145, 155, 165, or 195 
for channel inboard records. (Model 67 and 95 channel inboard 
records appear as Model 65 and 91 records, respectively.) 

• Universal for I/O outboard printouts produced by Model 30, 40, 
50, 65, 67, 75, 85, 91, 95, 135, 145, 155, 165, or 195. 
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Note ; SER can produce channel inboard records on any of the SER 
supported models. CCH can produce channel inboard records on IBM 
Systems/360 Models 65, 75, 85, 91, and 195, and IBM System/370 
Models 135, 145, 155 and 165. The channel recording facilities of 
some MCfl programs can produce channel inboard records on these 
models when CCH is not in the system or when the channel error 
cannot be recorded by CCH. 

Source 

identifies the error environment or recovery management program 
that generated the record placed in the SYSl. LOGREC data set. 
valid sources are: 

RECORD ENTRY SOURCE - OBR 

RECORD ENTRY SOURCE - SERO 

RECORD ENTRY SOURCE - SERl 

RECORD ENTRY SOURCE - MCH 

RECORD ENTRY SOURCE - CCH 

RECORD ENTRY SOURCE - MDR 

Record type 

indicates the type of printout. Valid types are: 

• TYPE - CPU 

• TYPE - INBOARD 

• TYPE - OUTBOARD 

• TYPE - MDR 

Record data 

is a listing of the edited record from the input data set. This 
data, which constitutes the bulk of the printout, is the programming 
data and machine data collected at the time of the error. 

Additional data 

is a listing of records that were recorded in the SYS.LOGREC data 
set while the program was being executed. 

The heading: 

• THE FOLLOWING RECORDS WERE GENERATED WHILE EXECUTING EREP 

is followed by a printout of the records. 

Figure EREPO-3 shows a sample outboard printout of an environment 
record that was processed by the outboard data editing and printing 
section of the utility program. The record was generated by the OBR 
program on an IBM System/360 Model 30, 40, 50, 65, 67, 75, 85, 91, 95, 
or 195 and on an IBM System/370 Model 135, 145, 155, or 165 (indicated 
by UNIVERSAL in the printout) . The device f alure occurred on a 2311 disk 
with a channel and unit address of 190. 
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Figures EREPO-4 and EREPO-5 show samples of a TCAM outboard printout 
of an environment record that was processed by the TCAM outboard data 
editing and printing section. The record was generated by the OBR 
program on an IBM System/360 Model 30, 40, 50, 65, 67, 85, 91, or 195, 
and on an IBM System/370 Model 135, 145, 155, or 165 (indicated by 
UNIVERSAL in the printout) . 

Note : The format for the MDR record is variable and requires special 
editing modules from the specific sub-types. Because of this variation, 
no sample printouts are shown for MDR record editing. 



EREPO 
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4* 



(D 

< 
H- 
O 
CD 

> 

Oi 
CO 



RECORD ENTRY TYPE - UNIT CHECK SOURCE- OUTBOARD MODEI 


- xxx SERIAL NO. xxxxxx 




OS RELEASE xxx 


















DAY YEAR 


HH MM SS.TH JOB IDENTITY xxxxxxxx 






DATE- 


XXX XX TIME- XX XX XX XX XXXXXXXXXXXXXXXX 






OBR RECORD CONVERTED TO THE STANDARD FORMAT 


MULTIPROCESSOR - 


CPU xx 




DEVICE TYPE 




xxxx 










PRIMARY CHANNEL 


UNIT ADDRE 


SS xxxx 










ALTERNATE CHANNEL 


UNIT ADDRESS xxxx 










PHYSICAL DRIVE 




X 










PHYSICAL CONTROL 


UNIT 


X 










VOLUME LABEL 




XXXXXX 












CC CA 


FL CT 


K CA US CE 


CT 






FAILING CCW 


XX xxxxxx XX XX xxxx 


CSW XX xxxxxx XX xx xxxx 








M B B 


C C H H R 










LAST SEEK ADDRESS x xxxx 


XXXX XXXX XX 










UNIT STATUS 




CHANNEL STATUS STATISTICAL DATA 


STATISTICAL DATA 


yyyyyy yyyy 


x 


yyyyyyyyy yyyyyy x yyyy yyyy yyyyyy 


xxxx 


yyyy yyyy 


xxx 


yyyy yyyy yyyyyy 


X 


yyyy yyyy yyy 


x yyyyyyy 


xxxx 


yyyyyy yyy yyy 


xxx 


yyyyyy yyyy 


X 


yyyyy yyyy yyy 


X yyyy yyy yyyy 


xxxx 


yy yyy 


xxx 


yyyy yyy 


X 


yyyyyyyyyyyyyyyy x yyyyyy yyyyyyy 


xxxx 


yyyy yyyy yyy yy 


xxx 


yyyyyyyy yyyyyyy 


X 


yyy yyy 


X yyy yyy 


xxxx 


yyyyy yyy 


xxx 


yyyy yyy 


X 


yyyy yyy 


X yyyy yyy 


xxxx 


yyyy 


xxx 


yyyyyy 


X 


yyyyyy yyy yyy 


x yyyyyyyyyy yyyyy 


xxxx 


yyy yyy yyy yyy 


xxx 


yyyyyyyy yyy 


X 


yyyyy 


x yyy yyy 


xxxx 


yy yyyyyy 


xxx 


SENSE BYTE DATA 














BYTE xx BYTE 1 xx 


BYTE 2 xx 


BYTE 3 xx BYTE 4 xx 


BYTE 5 


XX 




yyy yyyyyyy x yyy 


yyy yyy x 


xxxxxxxx 


yyyyy yy yy x yy yyy yyyy x 


xxxxxxxx 






yyyy yyy x yyyy yyy x 




x yyy yyy yyy x 








yyyyy yyy x yyy 


yyy yyy x 




yy yyyy x yyy yy x 








yyyyyy yyy x yyyyyyy x 




yyy yyy yyy x yyyy yyy x 








yyyy yyy yy x yyyyyyy yy x 




x yyyyyy yyy x 








yyy yyy yyy x yyy 


yyy x 




yyy yyy x yyy yyy x 








yyyy yyy x yyy 


yyy yyy x 




yyyyy yyy x x 








yyyyy yyy x yyyy yyyyyy x 




yyyyyy yyyy x yyyy yyy x 
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Sample Printout — Outboard Data Editing and 
Printing Section 



TCAM OUTBOARD DATA EDITING 


AND PRINTING SECTION 




MODEL- UNIVERSAL 












RECORD ENTRY SOURCE - 


- OBR 




TYPE - OUTBOARD 




CHANNEL/UNIT ADDRESS 0180 






DEVICE TYPE 2701 




COMMUNICATION ADAPTER TYPE 


NONE 






PROGRAM IDENTITY TRINETTE 










DAY YEAR 








HH MM SS TH 




DATE 040 69 








TIME-00 12 34.56 




CC DA 


FL 




CT 






FIRST CCW 08 000 4C8 


40 


00 


0001 




FAILING CCW 01 000510 


80 


00 


0028 




K CA 


US 


CS 


CT 






CSW F0 0010 2A 


FF 


FF 


0222 




UNIT STATUS 








CHANNEL STATUS 




ATTENTION 


1 






PRGM-CTLD IRPT 


1 


STATUS MODIFIER 


1 






INCORRECT LENGTH 


1 


CONTROL UNIT END 


1 






PROGRAM CHECK 


1 


BUSY 


1 






PROTECTION CHECK 


1 


CHANNEL END 


1 






CHAN DATA CHECK 


1 


DEVICE END 


1 






CHAN CTL CHECK 


1 


UNIT CHECK 


1 






I/F CTL CHECK 


1 


UNIT EXCEPTION 


1 






CHAINING CHECK 


1 


SENSE BYTE DATA 












INITIAL FAILURE 








FINAL RETRY 




BYTE 10101010 




BYTE 10101010 


CMND REJ 


1 






CMND REJ 


1 


INTV REQD 









INTV REQD 





BUS CflK 


1 






BUS CHK 


1 


EQUIP CHK 









EQUIP CHK 





DATA CHK 


1 






DATA CHK 


1 


OVERRUN 









OVERRUN 





LOST DATA 


1 






LOST DATA 


1 


TIME OUT 









TIME OUT 





TERMINAL NAME PITTS B 








RECORDING MODE *UNRECOVERABLE* 


SIO CNTR 00039 








TEMPORARY ERR CNTR 050 




MASK 01010001 








INITIAL SELECTION 1 





EREPO 



Figure EREP0-4. 



First Sample Printout — TCAM Data Editing and 
Printing Section 



TCAM OUTBOARD DATA EDITING AND PRINTING SECTION 



MODEL- UNIVERSAL 

RECORD ENTRY SOURCE - OBR 

CHANNEL/UNIT ADDRESS 0190 
COMMUNICATION ADAPTER TYPE NONE 
PROGRAM IDENTITY TRINETTE 

DAY YEAR 
DATE - 040 69 
TERMINAL NAME PITTS B 
SIO CNTR 00004 
MASK 00000101 



TYPE - OUTBOARD 
DEVICE TYPE 2701 



HH MM SS TH 
TIME-00 12 34.56 
RECORDING MODE *END OF DAY* 
TEMPORARY ERR CNTR 001 
INITIAL SELECTION 



Figure EREPO-5, 



Second Sample Printout — TCAM Data Editing 
and Printing Section 
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Machine- Check Summary : A machine-check summary can be generated on IBM 
Sytem/360 Models 40, 50, 65, 67, 85, 91, 95, and 195, and on IBM 
System/37 Model 135, 145, 155, 165. A summary consists of: 

• Items that provide clues as to the type of machine malfunction. 

• Parity information for registers in the diagnostic scan-out area 
(logout area), general purpose registers, and floating point 
registers. 

• The status of binary triggers recorded in the logout area. 

Notes : For the model 85, only the error triggers are summarized. 

Figure EREPO-6 shows the format of a machine-check summary. Each 
summarized item is listed with its frequence of occurrence. 



***MOD XX MACHINE-CHECK SUMMARY *** 
NUMBER OF RECORDS EXAMINED = 10 

TITLE TOTAL 

ROBAR SUMMARY (UP TO FIRST 10) 
OAAAA 3 

1BBBB 4 

1CCCC 3 

LOGOUT REG PARITY CHECK SUMMARY 
REG A 5 

REG B 2 

REG C 3 

CHECKS AND INDICATORS SUMMARY 
ROAR CHECK 1 
LSAR PTY CHECK 3 
H DECODE CHECK 4 
D/Y8 CHECK 2 



Figure EREPO-6. Machine-Check Summary 

Channel Inboard Summary : A channel inboard summary can be generated on 
IBM System/360 models 40, 50, 65, 75, 85, 91, and 195 and IBM System/370 
Model 165. (Model 67 and Model 95 channel inboard summaries are 
identified as Model 65 and 91 summaries, respectively.) Channel inboard 
records are summarized according to channel address. Each channel 
summary contains: 

• The addresses of devices connected to the channel (a maximum of 
10 devices). 

• The status of hardware elements (pertaining to the channel) in 
the logout area. 

• A summary of failing CCW command codes (a maximum of 24 
entries). (The 24th CCW command code entry is a logical OR of 
the remainder of the failing command codes, if any.) 
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Figure EREPO-7 shows the format of channel inboard summary, 
summarized item is listed with its frequence of occurrence. 



Each 



***MOD XX CHANNEL 1 SUMMARY *** 

TOTAL NO. OF RECORDS FOR THE CHANNEL =20 

TITLE TOTAL 
SUMMARY OF DEVICE ADDRESSES 

(MAX 10 ENTRIES) 

180 5 

190 6 

1F0 5 

UNDET . 4 

SUMMARY OF CMND CODES 

(MAX 24 ENTRIES) 

CMND CODES TOTAL 

•01" 7 

•02* 6 

'03* 3 

■14' 4 

SUMMARY OF HARDWARE LOGOUT 
IF PARITY 8 
LWR WR 6 

IF TAG CHK 2 
WO PARITY CHK 4 



EREPO 



Figure EREPO-7. Channel Inboard Summary 

I/O Outboard Summary : An I/O outboard summary can be generated on IBM 
System/36 Models 30, 40, 50, 67, 75, 85, 91, 95, and 195, and IBM 
System/370 Models 135, 145, 155 and 165. I/O outboard summaries are 
organized according to device address; however, the order of appearance 
of the summaries is determined by the order in which device addresses 
are encountered in the OBR records selected for summarization. Where 
TCAM is used the summary will appear in CUA (channel unit address) and 
line (terminal name) sequence. Each I/O outboard summary contains: 

• Volume labels (a maximum of 10 entries). 

• A summary of failing CCW command codes (a maximum of 24 
entries). (The 24th CCW command code entry is a logical OR of 
the remainder of the failing command codes, if any.) 

• The sense bits (a maximum of 6 bytes) 

Note : Selected records can be edited and written, accumulated, and/or 
summarized in one execution of the program. 

Figure EREPO- 8 shows the format of an I/O outboard summary. Each 
summarized item is listed with its frequency of occurrence. 

Figure EREPO-9 shows the format of the TCAM I/O outboard summary. 
All totals reference the CUA/ line. All subtotals reference terminal 
names. Individual errors appear under their type of error for every 
terminal. Graphic errors always appear on the third line under their 
type of error. 
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SUMMARY OF I/O OUTBOARD ENVIRONMENT RECORDS FOR DEVICE 031 

TOTAL NUMBER OF RECORDS 005 DEVICE TYPE 2311 

VOLUME LABELS ENCOUNTERED (MAXIMUM OF 10 ENTRIES) 
VOL. LABEL 22222 001 
VOL. LABEL 22222 002 
VOL. LABEL 22224 002 

CCW COMMAND CODES ENCOUNTERED (MAXIMIM OF 24 ENTRIES) 
CMND TOTAL 
02 005 



SENSE BYTE SUMMARY 
BYTE BYTE 1 



BYTE 2 



BYTE 3 



BYTE 4 BYTE 5 



CMND REJ 

INTV REQ 

BUS OUT 

EQUIP CHK 

DATA CHK 

OVERRUN 

TRK COND 

SEEK CHK 1 



DATA CHK 
TRK OVERF 
CYL END 1 
INV SEQ 2 
REC UNFND 
FILE PROT 3 
MISG A MK 4 
OVFL INC 5 



UNSAFE 


1 


READY 





BIT 








COMMAND 





BIT 1 


2 


ON LINE 





BIT 


1 


1 


IN 





SERIAL CH 


3 


UNSAFE 





BIT 


2 


2 


PROGRESS 





TAG LINE 


4 


BIT 3 


1 


BIT 


3 


3 


WHEN 





ALU CHK 





ON LINE 





BIT 


4 


4 


OVERFLOW 





UNSEL STA 





CYL END 





BIT 


5 


5 


INCMPLETE 





BIT 6 





BIT 6 


1 


BIT 


6 


1 


OCCURS 





BIT 7 





SEEK INCP 


1 


BIT 


7 


1 




1 



Figure EREP0-8. I/O Outboard Summary 
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o 

S3* 

<+ 
CD 



O 



►d 
o 






RECORD ENTRY TYPE - UNIT 


CHECK 


SOURCE - OUTBOARD MODEL- xxx SERIAL NO. xxxxxx 




OS RELEASE xxx 




















DAY YEAR 




HH MM SS.TH JOB IDENTITY xxxxxxxx 






DATE- 


XXX XX 


TIME- XX XX XX XX xxxxxxxxxxxxxxxx 






OBR RECORD CONVERTED TO THE STANDARD FORMAT 


MULTIPROCESSOR - 


CPU xx 




DEVICE TYPE 




xxxx 












PRIMARY CHANNEL 


UNIT ADDRESS xxxx 












ALTERNATE CHANNEL 


UNIT ADDRESS xxxx 












PHYSICAL DRIVE 




X 












PHYSICAL CONTROL 


UNIT 


X 












VOLUME LABEL 




XXXXXX 














CC CA 


FL CT 


K CA US CS CT 






FAILING CCW 


xx xxxxxx xx xx xxxx 


CSW xx xxxxxx xx xx xxxx 








M B B 


C C H H 


R 










LAST SEEK ADDRESS X XXXX 


XXXX xxxx 


XX 










UNIT STATUS 




CHANNEL 


STATUS STATISTICAL DATA 


STATISTICAL DATA 


yyyyyy yyyy 


X 


yyyyyyyyy 


yyyyyy x yyyy yyyy yyyyyy 


xxxx 


yyyy yyyy 


xxxx 


yyyy yyyy yyyyyy 


X 


yyyy yyyy 


yyy 


x yyyyyyy 


xxxx 


yyyyyy yyy yyy 


xxxx 
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yyyyy yyyy yyy 
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xxxx 


yy yyy 


xxxx 


yyyy yyy 


X 


yyyyyyyyyyyyyyyy x yyyyyy y yyyyyy 


xxxx 


yyyy yyyy yyy yy 


xxxx 


yyyyyyyy yyyyyyy 


X 


yyy yyy 




x yyy yyy 


xxxx 


yyyyy yyy 


xxxx 


yyyy yyy 


X 


yyyy yyy 




x yyyy yyy 


xxxx 


yyyy 


xxxx 


yyyyyy 


X 


yyyyyy yyy yyy 


x yyyyyyyyyy yyyyy 


xxxx 


yyy yyy yyy yyy 


xxxx 


yyyyyyyy yyy 


X 


yyyyy 




x yyy yyy 


xxxx 


yy yyyyyy 


xxxx 


SENSE BYTE DATA 
















BYTE xx BYTE 1 xx 


BYTE 2 


XX 


BYTE 3 xx BYTE 4 xx 


BYTE 5 


XX 




yyy yyyyyyy x yyy 


yyy yyy x 


xxxxxxxx 
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xxxxxxxx 
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Figure EREPO-9. TCAM I/O Outboard Summary 
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Chapter 3: GTF (Generalized Trace Facility) 

Traces selected system events such as SVC and I/O interruptions. 
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Introduction 



The Generalized Trace Facility (GTF) is a feature of OS/3 60 that allows 
you to trace selected system events. It also allows you to create your 
own user trace records and include them in the trace output. The trace 
output, when formatted and printed by the EDIT function of IMDPRDMP, is 
useful in determining and diagnosing problems that may arise while using 
the operating system. 
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Features 



GTF operates as a system task under the operating system; it is 
compatible with all configurations of the operating system. If the 
TRACE option has been selected at system generation, the OS Trace 
facility will function normally except during GTF processing, when OS 
Trace processing will be suspended. 

GTF can trace any or all of the following system events: 

Input/output interruptions (10) 

START I/O operations (SIO) 

Supervisor Call interruptions (SVC) 

Program interruptions (PI) (including SSM) 

External interruptions (EXT) 

Dispatcher task- switch operations (DSP) 

If you choose 10 or SIO, you can supply specific device names in 
response to a prompting message; GTF will then filter out all 10 or SIO 
events that are not associated with the devices you specified. 
Similarly, you can supply specific SVC numbers when you choose SVC 
tracing, and specific program interrupt codes when you choose PI tracing. 

GTF will ordinarily ignore traceable events that are associated with 
its own task, but you can request that such events be included as part 
of the trace output (TRC) . You can also request that a timestamp be 
included in each trace record (TIME=YES) . 

GTF trace output can be maintained in main storage (M0DE=INT) or 
directed to a data set on an external storage device (MODE=EXT) . The 
output device may be any magnetic tape or direct access device supported 
by the operating system. 

If data is maintained internally or written to a direct access 
output device, it is "wrapped". That is, when the buffers or available 
tracks become full, GTF will overlay previously stored or written 
information beginning at the first buffer or block. 

Any abnormally terminating user who has requested ABEND processing 
will be supplied with formatted trace data as part of the ABEND dump if 
GTF was active with M0DE=INT when ABEND was given control. Similarly, 
trace data will be provided for SNAP dumps if the user has included the 
SDATA=TRT parameter in the SNAP macro. 
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Starting GTF 



Use the START command to initiate GTF processing. By specifying certain 
optional parameters, you can choose whether the trace records should be 
recorded internally or externally, whether or not they should be 
time- stamped, and whether or not GTF should terminate if it encounters 
errors while gathering trace information. You can also select trace 
options, either by entering them directly through the console or by 
retrieving them from SYS1.PARMLIB where you have stored them. 

Using the START Command 

Figure GTF-1 shows the general format of the START command as it is used 
to start GTF. 

START procname E . identifier] , [devaddr] , [volser] , [parmvalue] 
[, keyword=option] [ . . . , keyword=opti on] [ , REG=size] 

Figure GTF-1. General Format of the Start Command for GTF 

The following discussion describes the parameters of the START command 
as they are used for GTF. 

procname 

defines one of the two cataloged procedures (GTF and GTFSNP) 
described in the next section. 

devaddr 

indicates the address of the device to which trace output is to be 
written, if you have specified MODE=EXT. If you have specified 
MODE=INT, omit this field. 




volser 



defines the volume serial number of the direct access storage pack 
to which trace output is to be written, if you have specified 
MODE=EXT. If you specified MODE=INT, omit this field. 



parmvalue 



overrides the value specified in the PARM= parameter of the EXEC 
statement in the cataloged procedure GTF or GTFSNP. This field may 
contain any combination of the following parameters: 

MODE=fINT 
JEXT 
((INT,S) 

defines where the trace data is to be maintained. If you omit 
this parameter, GTF will assume the default specified in the 
cataloged procedure (MODE=EXT) and write the trace data on the 
SYS1. TRACE data set.. When MODE=EXT is in effect, you will be 
prompted to supply trace options unless you have specified a 
member of SYS1.PARMLIB where trace options are stored. 
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When MODE=INT is in effect, the trace data is maintained in 
main storage, and GTF will not prompt you to supply trace 
options. It will gather basic data (similar to that contained 
in the OS trace table) for the following events: 

Dispatcher entries 

External interrupts 

I/O interrupts, including program-controlled interrupts. 

Program interrupts 

SIO operations 

SVC interrupts . 

When any task in the system terminates abnormally and the ABEND 
routine is invoked, GTF will suspend tracing until the ABDUMP 
program can format the trace data as part of the dump output. 
Trace events missed during ABEND processing will be counted in 
a special control record that will be included in the trace 
buffers. If ABEND is not invoked, tracing will continue 
unaffected. If you specified MODE= ( INT , S ) , GTF will not pause 
for ABEND or SNAP processing, and the trace buffers will not be 
formatted. 



TIME=fYES) 
\N0 / 



TIME=YES requests that every logical trace record be 
timestamped (in addition to the block time stamp associated 
with every block of data). This record timestamp will be four 
bytes of timer units for systems without Time-of-Day Clock 
support; for systems with Time-of-Day Clock support, the 
record timestamp will be the clock value at the time the record 
was constructed. Note that if no timer option is present in the 
system, this parameter will be ignored and a warning message 
will be issued. 

If you code TIME=NO, or if you omit this parameter, GTF will 
not timestamp individual records. 



DEBUG=lYES\ 
\NO / 



GTF may encounter errors while attempting to create a trace 
record. If you specify DEBUG=YES, most errors of this kind 
will cause GTF to issue an error message and then terminate, so 
that the contents of the GTF buffers immediately prior to the 
error will be unchanged. If you have named the GTFSNP 
procedure in the START command, a SNAP dump will be produced if 
GTF terminates abnormally. 

If you specify DEBUG=NO, or if you omit this parameter, GTF 
will not terminate immediately, but instead will initiate error 
recovery procedures. For more information about error recovery 
procedures, refer to the section "GTF Error Recovery Handling" 
later in this chapter. 
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keyword=option 

You may use this parameter to override specific parameters in 
the IEFRDER DD statement in the cataloged procedure. For 
example: 

• To specify a different name for the trace data set, code 
DS N AME=n ewna me . 

• To prevent the system from sending mount messages to the 
operator's console when specifying MODE=INT, code DSN=NULLFILE. 

• To request more than two output buffers, code 
DCB= ( BUFNO=number ) . 

• To modify the GTF buffer size code, DCB=(BLKSIZE=number) . The 
block size cannot be less than 350 bytes. 

• To specify an existing data set as the output data set, code 
DISP=OLD. (Note: If you specify DISP=MOD, GTF will change the 
data set disposition to OLD.) 

Do not use this parameter to request DCB=OPTCD=C; GTF does not 
support chain-scheduling. 

REG=size 

supplies a region size for GTF. This will override the value 
specified in the REGION= parameter of the EXEC statement in the 
cataloged procedure. 

Using the GTF Cataloged Procedures 

The START command for GTF names one of two cataloged procedures supplied 
in SYS1.PROCLIB. The first, GTF, contains job control statements as 
shown in Figure GTF- 2. The second, GTFSNP, is identical to cataloged 
procedure GTF except that the SNAPDUMP DD statement, shown as optional 
in Figure GTF-2, is supplied, and the default region size is 3 OK. 

//GTF PROC REG=26 

//IEFPROC EXEC PGM=IHLGTF,REGION=&REG. K, 

// PARM= • MODE= EXT , DEBUG=NO , TIME=NO • 

//IEFRDER DD DSNAME=SYS1. TRACE, UNIT=SYSDA, 

// SPACE=(3500,20) ,DISP= (NEW, KEEP) 

//SYSPRINT DD SYSOUT=A, SPACE= (TRK, ( 1, 1) ) 

[//SYSLIB DD DSN=SYS1.PARMLIB (membername) , ] 

[// DISP=SHR] 

[//SNAPDUMP DD SYSOUT=A] 

Figure GTF-2 . The GTF Cataloged Procedure 

PROC Statement 

defines the default region size for the symbolic REGION= parameter 
in the EXEC statement. This default value is used if you do not 
specify a region size in the START command. 

EXEC Statement 

calls for the execution of GTF. The REGION parameter is specified 
as a symbolic parameter so that you can vary it according to need. 
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IEFRDER DD Statement 

defines the trace output data set. If you do not override this 
statement in the START command, the trace output data set will have 
the name SYSl. TRACE; it will be directed to a direct access device 
with sufficient allocation to allow the data set to contain twenty 
3 5 00- byte physical blocks. 

SYS PRINT DD Statement 

defines the GTF message data set. 

SNAPDUMP DD Statement (Optional in the cataloged procedure GTF, supplied 
in GTFSNP.) 

causes GTF to issue the SNAP macro to dump the nucleus and the GTF 
region if an error condition causes GTF to terminate. This 
statement increases GTF's region size requirements by UK. 

SYSLIB DD Statement (Optional) 

defines a member in the SYSl.PARMLIB data set that contains GTF 
options. If such a member exists, GTF will not prompt you to supply 
options, but will use the options in the member. 

Specifying GTF Trace Options 

tfhen you start GTF with MODE=EXT, you will receive the following message: 

IHL100A SPECIFY TRACE OPTIONS. 

Use the following format to specify the events to be recorded during GTF 
execution: 

TRACE=optionl[,option2] . . . [,optionx] 
You can specify any of the following trace option values: 
(SYS 1 

JsysmJ 

(SYSP) 

SYS requests that comprehensive trace data be recorded for the 
following system events : 

• I/O interrupts 

• SVC interrupts 

• Program interrupts 

• External interrupts 

• Start I/O operations 

Note: Dispatcher task switching must be requested separately 
through the DSP keyword. Similarly, program-controlled interrupt 
must be requested separately through the PCI keyword. 
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SYSM requests that minimal trace data be recorded for all system 
events listed above. SYSP requests further prompting for 10, SIO, 
SVC, and PI; that is, if you specify SYSP, GTF will prompt you to 
supply specific device addresses, SVC numbers, or program interrupt 
codes. Comprehensive trace data will be recorded for events 
associated with the devices or interrupts that you specify; all 
other events will be filtered out and ignored. If SYS and SYSM, or 
SYS and SYSP, are both specified, SYS will be ignored. Similarly, 
if SYSP and SYSM are both specified, SYSP will be ignored. 

|SI0 ) 

Isiopf 

SIO requests comprehensive recording for system SIO operations on 
all devices. SIOP requests further prompting for specific devices 
for which trace data should be recorded. 

This keyword will be ignored if SYS , SYSM, or SYSP has also been 
specified. 




110 \ 
(IOP/ 



10 requests comprehensive recording for all I/O interrupts except 
program-controlled interrupts, which must be requested separately 
through the PCI keyword. IOP requests further prompting for 
specific devices for which I/O interrupts should be recorded. 



This keyword will be ignored if SYS, SYSM, or SYSP has also been 
specified. 



/SVC \ 

IsvcpJ 



SVC requests comprehensive recording for all SVC interrupts. SVCP 
requests further prompting for specific SVC numbers for which trace 
data should be recorded. 



This keyword will be ignored if SYS, SYSM, or SYSP has also been 
specified. 



{PI | 
IPIPf 



EXT 



PI requests comprehensive recording for all program interrupts. PIP 
requests further prompting for specific interrupt codes for which 
trace data should be recorded. 

This keyword will be ignored if SYS, SYSM, or SYSP has also been 
specified. 



requests comprehensive recording for all external interrupts. This 
keyword will be ignored if SYS, SYSM, or SYSP has also been 
specified. 
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DSP 



OSR 



PCI 



TRC 



SSM 



requests that a trace record be created whenever the dispatcher is 
entered for task switching. The trace data collected will be 
comprehensive unless you have requested SYSM. 



requests that all data passed to GTF via the GTRACE macro be 
recorded with the system data in the trace data set. 



requests that all program-controlled I/O interrupts be recorded. 
This keyword will be ignored unless 10, IOP, SYS, SYSM, or SYSP is 
also specified. If you have specified IOP or SYSP, 
pro gram- controlled I/O interrupts will be recorded only for those 
devices that you supplied in response to a prompting message. 



requests tracing of trace events associated with the trace task 
while operating under GTF*s task control block. Such events will be 
traced according to the GTF trace options selected while starting 
GIF. If this keyword is not specified, GTF task events will be 
filtered out and not recorded. 



requests all program interrupts caused by SSM instructions to be 

recorded. This keyword is effective only in a multiprocessing 

environment, and only when PI, PIP, SYS, SYSM or SYSP is also 
specified. 



Prompting 

When you specify SYSP, IOP, SIOP, SVCP, or PIP as trace options, GTF 
will prompt you to supply specific values. These values are: 

SI0=(devaddrl[,devaddr2] [ ,devaddr50] ) 

specifies up to 50 device addresses for which you want SIO 
operations traced. All other SIO operations will be filtered out. 
If you have specified SIOP or SYSP, and do not specify SIO= in 
response to the prompting message, no SIO filtering will take place. 

IO=(devaddrl[,devaddr2] [. . . ,devaddr503) 

specifies up to 50 device addresses for which you want I/O 
interruptions traced. All other 10 interruptions will be filtered 
out. If you have specified IOP or SYSP, and do not specify IO= in 
response to the prompting messages, no 10 interruption filtering 
will take place. 

S VC= ( s vcnuml [ , s vcnum2 ][..., s vcnum5 ] ) 

specifies up to 50 SVC numbers that you want traced. All other SVC 
numbers will be filtered out. If you have specified SVCP or SYSP, 
and do not specify SVC= in response to the prompting message, no SVC 
filtering will take place. 
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PI= ( codel [ , code23 [ . . . , codel5] ) 

specifies up to 15 program interrupt codes that you want traced. All 
other program interruptions will be filtered out. If you have 
specified PIP or SYSP, and do not specify PI= in response to this 
prompting message, no program interruption filtering will take place. 

1 0=SIO= ( devaddr 1 1 , devaddr 23 [ . . . , devaddr 50] ) 

specified after requesting SYSP or both IOP and SIOP, names up to 50 
device addresses for which you want GTF to trace both 10 and SIO 
events. All other 10 and SIO events, except those requested 
specifically by 10= or SI0=, will be filtered out. 

Note that in each case GTF imposes a limit on the number of specific 
values you can supply through prompting. If you exceed this limit, GTF 
will issue a message and you must respecify all values. 

Figure GTF-3 shows an example of an exchange between GTF and the 
operator when GTF is being started. 

START GTF, , , (M0DE=EXT) ,REG=34 



00 IHL100A SPECIFY TRACE OPTIONS 
rOO, , rRACE=SYSP,USR* 



01 IHL101A SPECIFY TRACE EVENT KEYWORDS — SVC=, I0=, SIO=, PI= 
rOl, 'SVC=(1,2,3,4,10),IO=(191,192) • 



02 IHL102A CONTINUE TRACE DEFINITION OR REPLY END 
r02, , SIO=282,END , 

IHL103I TRACE OPTIONS SELECTED — SYSP,USR 
IHL103I SVC= (1,2, 3, 4, 10) ,10= (191, 19 2) ,SIO=(282) 

03 IHL125A RESPECIFY TRACE OPTIONS OR REPLY U 
r03, 'Q' 

Figure GTF-3. GTF messages and operator replies while starting GTF. 

Storing Trace Options in SYS LP ARM LIB 

You can save time in starting GTF by storing one or more set 
combinations of trace options as members in SYSl.PARMLIB. GTF will not 
prompt you to supply trace options, but will will look in SYSl.PARMLIB 
if you include a SYSLIB DD statement in the GTF or GTFSNP cataloged 
procedures . 
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Figure GTF-4 shows the job control statements and utility control 
statements needed to add trace options to SYS1. PARMLIB using IEBUPDTE. 
For full descriptions of the statements, refer to the publications IBM 
System/360 Operating System: Utilities, GC28-6586, and Job Control 
Language Reference, GC28-6703. 

//GTFPARM JOB MSGLEVEL= (1, 1) 

// EXEC PGM=IEBUPDTE,PARM=NEW 

//SYS PRINT DD SYSOUT=A 

//SYSUT2 DD DSNAME=SYSl. PARMLIB, DISP=SHR 

//SYS IN DD DATA 

./ ADD NAME=GTFA,LIST=ALL,SOURCE=0 

rRACE=SYSP,USR 

SVC=(1,2,3,4,10),IO=(191,192),SIO=282,PI=15 

./ ADD NAME=GTFB,LIST=ALL,SOURCE=0 

TRACE=IO,SIO,TRC 

./ ADD NAME=GTFC,LIST=ALL,SOURCE=0 

TRACE=S YS , PCI , SSM 

/* 

Figure GTF-4. Adding Trace Options to SYS1.PARMLIB Using IEBUPDTE. 

A sample //SYSLIB DD statement to be included in the GTF or GTFSNP 
cataloged procedure might look like this: 

//SYSLIB DD DSN=SYS1.PARMLIB(GTFA) ,DISP=SHR 
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Calculating Storage Requirements 



GTF's region requirements vary according to the GTF options that you 
specify. 

If you have requested MODE=INT, you must specify a minimum region 
size of 16K bytes of main storage. This minimum will provide you with 
four 1024-byte buffers. If you need more buffers, you must specify IK 
of additional storage for each buffer. If you use the GTFSNP cataloged 
procedure, or if you use an installation-defined procedure that contains 
a SNAPDUMP DD statement, you must add 4K to the minimum region size. 

If you have requested MODE=EXT, you must specify a minimum region 
size of 26K. For larger regions, use the following formula to compute 
your region requirements. Note that all intermediate values must be 
rounded up to the nearest 2K multiple. The final region size that you 
calculate must also be rounded up to the nearest 2K multiple. 

region = 16K + n(b+8) + 88 (n) + m + a 

Where: 

16K 

minimum main storage required for minimal trace. 




n 



88 



number of trace buffers, ordinarily two unless you have 
specified more in the START command. 



the size of the trace buffers, ordinarily 3500 bytes unless you 
have specified a different value in the START command. (Note: 
When trace output is directed to a direct access device, the 
buffer size should equal the track size. This is necessary to 
prevent too much previously stored data from being lost when 
the trace data is "wrapped". The 8 additional bytes are needed 
for the GTF buffer prefix. 



the size of the input/output block (IOB) ; one IOB is required 
for each buffer. 



total main storage required to process GTF options requested. 
In some cases, several GTF options are contained within one 
module. Even if you request two or more GTF functions that are 
contained in the same module, you only need to provide enough 
space for one copy of the module. Refer to Figure GTF-5 for a 
summary of GTF options, the modules that contain them, and the 
amount of main storage required for each module. 
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To calculate m, add together the storage requirements for each 
module that you will need, and add IK to the total if you have 
requested filtering for any option. For example, if you specify 
EXT, SVCP, and USR: 

m = 2K + 8K +1K + 0.5K 

m = 11. 5K 



The amount of main storage required for ABEND or SNAP 
processing. If you have requested either ABEND or SNAP, or 
both, when starting GTF, this value is 4K. If you have not 
requested ABEND or SNAP, this value is zero. 



GTF OPTIONS SELECTED 


MODULES REQUIRED 


MAIN STORAGE REQUIRED 


SYSM[,DSP] [,PCI] 


IHLSYSV 

or 
IHLSYSP 


IK 


DSP 

Exr 

PI 

PI= 

SSM 


IHLTPED 


2K 


10 

10= 

SIO 

SI0= 

PCI 


IHLTSIO 


IK 


SVC 

svc= 


IHLTSVC 


8K 


SYS [, DSP] [,PCI] 
[ , SSM] 


IHLTPED, 
IHLTSIO , 

and 
IHLTSVC 


UK 


USR 


IHLTUSR 


0. 5K 


IOP 
SIOP 
SVCP 
PIP 


IHLTFIL 


IK 



Figure GTF-5. Main Storage Requirements for GTF Options, By Module. 
Note that TRC can be considered to require (zero K) bytes of main 
storage. 
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Recording User Data 



If you want your own trace data to be recorded in the GTF trace buffers, 
you can specify that data in the GTRACE macro instruction. In one 
invocation of GTRACE , an application program can record up to 256 bytes 
of data in a GTF trace buffer. Secure data should not be recorded using 
the GTRACE macro since security protection cannot be guaranteed. Note, 
however, that GTRACE can record only data that has the same protect key 
as the GTRACE user. 

GTRACE will be effective only when GTF is active, when it is directing 
its output to an external data set, and when it is accepting user data 
— that is, when GTF has been started with MODE=EXT and TRACE=USR 
specifications. 

Printing User Data 

Like other trace data, information recorded by the GTRACE macro can be 
printed by the EDIT function of IMDPRDMP. Usually user data will be 
printed in hexadecimal, since EDIT cannot format records not created by 
GTF. However, you can write format appendages to format specific types 
of user data records. 

Every time you issue GTRACE to create a user record, you specify 
which format appendage should process it; you do this by including the 
optional FID (format identifier) parameter in the GTRACE invocation. 
The FID corresponds to the last two hexadecimal characters in the name 
of the format appendage,, iMDUSRxx. 

Coding the GTRACE Macro 

Figure GTF- 6 shows the general format of th e GTRACE macro, standard 
form. 

[symbol] GTRACE DATA=address,LNG=number, ID=n umber [,FID=value] 

Figure GTF-6. The General Format of the GTRACE Macro, Standard Form 



The parameters in the macro are described below. 

DATA=address 

gives the main storage address of the data to be recorded. 

LNG=number 

specifies the number of bytes (1 to 256) to be recorded from the 
address specified in the DATA= parameter. The number may be 
specified in decimal or in hexadecimal (as X' number'). 
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ID=value 



is the identifier to be associated with the record. ID values are 
assigned as follows: 

to 1023 — user events 

1024 to 4095 — reserved 

The value may be specified in decimal or in hexadecimal (as 
X" value') . 

FID=value 

indicates the format appendage that is to format this record when 
the trace output is processed by the EDIT function of IMDPRDMP. FID 
values are assigned as follows : 

(or FID= parameter omitted) — record to be dumped in hexadecimal 

1 to 80 — user format identifiers 

81 to 255 — reserved 

The value may be specified in decimal or in hexadecimal (as 
X'value'). 

Figure GIF- 7 shows how the GTRACE macro might be coded to record 200 
bytes of data, beginning at the address of AREA., with an event 
identifier of 37 and to be formatted by the format appendage with the 
name IMDUSR64 . 

3 TRACE DATA=AREA,LNG=200 , ID=37,FID=100 

Figure GTF-7. An Example of the GTRACE Macro. 

For more details about the GTRACE macro instruction, consult the 
publication IBM System/360 Operating System: Supervisor Services and 
Macro Instructions, GC28-6646. 
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GTF Error Recovery Handling 



GTF recognizes all errors that occur while building a trace record as 
potentially recoverable. Whether recovery takes place or not depends on 
what you code in the START command. 

If you specify DEBUG=YES, GTF will not attempt error recovery. It 
will issue an error message and then terminate, so that the contents of 
the GTF buffers immediately prior to the error will be preserved. 

If you specify DEBUG=NO f GTF will initiate the following error 
procedures: 

For minor errors in the routine that builds the trace record (the 
build routine), GTF flags the field that led to the error and 
continues processing. It does not issue a message to the operator's 
console or disable the function that caused the error; instead, it 
proceeds as if no error had occurred. All errors that occur while 
building an SVC record fall into this category. 

For severe errors in the build routine, GTF flags the entire record 
that was being built, issues a message to the console, and continues 
processing with the function that caused the error suppressed. 

For errors in the routine that filters trace events, GTF suppresses 
filtering for future events of the same type, issues a message to 
the console, and continues processing. 

Errors that occur outside the build and filter routines are not 
recoverable; they result in immediate abnormal termination of GTF. 

Note that the termination of GTF will never cause termination of a 
user's task. 
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GTF Output 



GTF creates two kinds of records: trace records and control records. 



Trace Records 

GTF creates trace records for each system event you select. The records 
have the general format shown in Figure GTF- 8. 

length 00 AID FID Timestamp EID DATA 

• Trace data (up to 256 bytes) 

— Event identifier (2 bytes) 

Timestamp (optional; 8 bytes) 

Format Identifier (1 byte) 



Application Identifier (1 byte) 



•Always zero (2 bytes) 
•—Number of bytes in trace record (2 bytes) 



Figure GTF-8. Fields in a trace record. 

The fields in the record are described as follows: 

length 

indicates the total length of the record. 
00 

always zero. 

AID 

defines whether the data record is a trace record or a GTF control 
record. 

X'FF' — trace record 

X'00' — GTF control record 

X'01' to X'FE* — reserved 



FID 



is the format identifier, a one-byte hexadecimal number that 
identifies the program that will format the trace record during EDIT 
execution. (For information on specifying the FID in the GTRACE 
macro, refer to the section "Coding the GTRACE Macro" in this 
chapter . ) 

If this field is zero, the trace record will not be formatted, but 
will be dumped in hexadecimal. 
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timestamp 



EID 



If TIME=YES was specified in the START command and a timer option is 
in effect in the system, a time stamp will be included in this 
eight-byte field. If GTF is executing on a system without the 
Time-Of-Day Clock, the time stamp will be four bytes of timer units, 
right justified. On a system with Time-Of-Day clock support, the 
value in the record will be the clock value at the time the record 
was constructed. 



defines the event that caused the trace record to be created. It is 
not present in GTF control records. You can determine the EID of a 
trace record by issuing the IMDMEDIT mapping macro, which is 
described in the Appendix: Writing EDIT User Programs. 

data 

This field contains the trace data gathered for the requested event. 
The length of this field varies according to the event being 
traced. 

Figures GTF- 9 through GTF-13 are examples of trace output as processed 
by the EDIT function of IMDPRDMP. In all the examples, fields flagged 
with hhhhhhhh are hexadecimal representations, and fields flagged with 
cccccccc are alphameric characters. N/A signifies that the field label 
does not apply to this paricular record. For explanation of the fields 
in the records, refer to the Programmer's Guide to Debugging, GC28-6670. 
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to 



en 
(D 
H 

< 
o 

> 
a. 



DSP RES PSW hhhhhhhh hhhhhhhh JOBN 



cccccccc 
N/A 



MODN 




NUTCB hhhhhhhh PRTY hh 



10 
PCI 



cuu OLD PSW hhhhhhhh hhhhhhhh JOBN 



CSW hhhhhhhh hhhhhhhh RQE 



******** j DDNM 
cccccccc I 



N/A 



******** OLTCB hhhhhhhh 
cccccccc! 



N/A 



******** ******** ******** 

hhhhhhhh hhhhhhhh hhhhhhhh 
N/A 



RQE TCB 



********! SENS (hhhhhhhh 
hhhhhhhh} j N/A 
N/A ' 



SIO cuu CC hh CAW hhhhhhhh JOBN 



cccccccc 
N/A 



PGM ccc OLD PSW hhhhhhhh hhhhhhhh JOBN 



OLTCB hhhhhhhh CSW hhhhhhhh hhhhhhhh RQE hhhhhhhh hhhhhhhh hhhhhhhh RQE TCB hhhhhhhh 



OLTCB hhhhhhhh 



RO 
R8 



hhhhhhhh Rl 
hhhhhhhh R9 



cccccccc) MODN /"WAITTCB 
N/A [ SVC-CCCC 
' J SVC- RES 
J **IRB*** 
cccccccc 
\ Iccccccc. 

hhhhhhhh R2 hhhhhhhh R3 hhhhhhhh R4 hhhhhhhh R5 hhhhhhhh R6 hhhhhhhh R7 hhhhhhhh 
hhhhhhhh RIO hhhhhhhh Rll hhhhhhhh R12 hhhhhhhh R13 hhhhhhhh R14 hhhhhhhh R15 hhhhhhhh 



EXT OLD PSW hhhhhhhh hhhhhhhh JOBN 



cccccccc ) MODN 
N/A 



OLTCB hhhhhhhh TQEFLG/TCB 



******** 

hhhhhhhh 
N/A ! 



EXIT 



******** 

hhhhhhhh 
N/A 



f WAITTCB "^ 
SVC-cccc 
SVC-RES 
* * j Rg * * * 

cccccccc 
k Iccccccc 



SVC nnn OLD PSW hhhhhhhh hhhhhhhh JOBN cccccccc MODN cccccccc OLTCB hhhhhhhh R15/R0 hhhhhhhh hhhhhhhh Rl hhhhhhhh 



Figure GIF- 9. Format of Comprehensive Trace Records for DSP, IO 

(including PCI), SIO, PI, EXT, and SVC (MFT and MVT) 



o 

V 

ti- 
ro 



CO 



ft} 



DSP RES PSW hhhhhhhh hhhhhhhh JOBN 



jcccccccc I 

\ n/a ; 



MODN /^WAITTCB ^ 

SVC-cccc 

J SVC-RES 

| **IRB*** 

cccccccc 

vlcccccco' 



NUA hhhhhhhh NUB hhhhhhhh PRTY hh 



W \pcif 



cuu OLD PSW hhhhhhhh hhhhhhhh 



JOBN (******** 
jcccccccc 
J N/A 



******** 

cccccccc 

N/A 



OLA hhhhhhhh OLB hhhhhhhh 



CSW hhhhhhhh hhhhhhhh RQE 



******** ******** ******** 

hhhhhhhh hhhhhhhh hhhhhhhh 
N/A 



RQE TCB 



******** 

hhhhhhhh 

N/A 



SENS (hhhhhhhh 
j N/A 



fh\ SIO cuu CC hh CAW hhhhhhhh JOBN (cccccccc) OLA hhhhhhhh OLB hhhhhhhh CSW hhhhhhhh hhhhhhhh 



IB/ 



{b} 



N/A 



RQE hhhhhhhh hhhhhhhh hhhhhhhh RQE TCB hhhhhhhh 



PGM ccc OLD PSW hhhhhhhh hhhhhhhh JOBN 



OLA hhhhhhhh OLB hhhhhhhh 



RO 
R8 



hhhhhhhh Rl 
hhhhhhhh R9 



cccccccc / MODN /^WAITTCB "\ 
N/A ( SVC-cccc 
' J SVC-RES I 
| **IRB*** f 

cccccccc 
L Icccccccy 

hhhhhhhh R2 hhhhhhhh R3 hhhhhhhh R4 hhhhhhhh R5 hhhhhhhh R6 hhhhhhhh R7 hhhhhhhh 
hhhhhhhh RIO hhhhhhhh Rll hhhhhhhh R12 hhhhhhhh R13 hhhhhhhh R14 hhhhhhhh R15 hhhhhhhh 



{»} 



{b} 



SSM OLD PSW hhhhhhhh hhhhhhhh JOBN 



cccccccc 
N/A 



EXT OLD PSW hhhhhhhh hhhhhhhh JOBN cccccccc 



/"WAITTCB 

SVC-cccc 
] SVC-RES 
J **IRB*** 
I cccccccc 
^.Iccccccc 



MODN AWAITTCB 
SVC-cccc 
I SVC-RES 
] **irb*** 
cccccccc 
vlccccccc. 



OLA hhhhhhhh OLB hhhhhhhh LKID hh 



OLA hhhhhhhh OLB hhhhhhhh STMSK hhhhhhhh 



TQEFLG/TCB j******** 
{hhhhhhhh 
I N/A 



EXIT |******** 
{hhhhhhhh 
J N/A 



{>} 



SVC nnn OLD PSW hhhhhhhh hhhhhhhh JOBN 



******** 

cccccccc 

N/A 




OLA hhhhhhhh OLB hhhhhhhh 



R15/R0 hhhhhhhh hhhhhhhh 



Rl hhhhhhhh 



Figure GTF-10. 



Format of Comprehensive Trace Records for DSP, 10 (including PCI) , 
SIO, PI (including SSM) EXT, and SVC (Model 65 Multiprocessing) 




^J 

*» 



CO 
(D 

< 

O 

> 

Pi 
CO 



CD 

fl> 
OJ 
CO 
(D 



DSP 


NEW PSW hhhhhhhh hhhhhhhh 


R15/R0 hhhhhhhh hhhhhhhh 


Rl hhhhhhhh NEW TCB hhhhhhhh 


\pci} 


OLD PSW hhhhhhhh hhhhhhhh 


CSW hhhhhhhh hhhhhhhh RQE TCB {******** 

hhhhhhhh 
( N/A 


OLD TCB hhhhhhhh 


SIO 


CC/DEV/CAW hhhhhhhh hhhhhhhh CSW hhhhhhhh hhhhhhhh 


RQE TCB 


********) OLD TCB hhhhhhhh 
hhhhhhhh 
N/A ] 


PGM 


OLD PSW hhhhhhhh hhhhhhhh 


R15/R0 hhhhhhhh hhhhhhhh 


Rl hhhhhhhh OLD TCB hhhhhhhh 


EXT 


OLD PSW hhhhhhhh hhhhhhhh 


R15/R0 hhhhhhhh hhhhhhhh 


Rl hhhhhhhh TQE TCB |********i 
hhhhhhhh 
( N/A 


SVC 


OLD PSW hhhhhhhh hhhhhhhh 


R15/R0 hhhhhhhh hhhhhhhh 


Rl hhhhhhhh OLD TCB hhhhhhhh 



Figure GTF-11. Format of Minimal Trace Records for DSP, 10 (including PCI), 
SIO, PI, EXT, and SVC (MFT and MVT) 



{2} DSP 


RES PSW hhhhhhhh hhhhhhhh R15/R0 hhhhhhhh hhhhhhhh Rl hhhhhhhh NUA hhhhhhhh NUB hhhhhhhh 


|b/ \pci/ 


OLD PSW hhhhhhhh hhhhhhhh CSW hhhhhhhh hhhhhhhh RQE TCB (********! OLA hhhhhhhh OLB hhhhhhhh 

hhhhhhhh 
( N/A 


{J} SI ° 


CC/DEV/CAW hhhhhhhh hhhhhhhh CSW hhhhhhhh hhhhhhhh RQE TCB j******** 

hhhhhhhh 
{ N/A 


OLA hhhhhhhh OLB hhhhhhhh 


{ B } PGM 


OLD PSW hhhhhhhh hhhhhhhh R15/R0 hhhhhhhh hhhhhhhh Rl hhhhhhhh OLA hhhhhhhh OLB hhhhhhhh 


{b} SSM 


LK hh OPSW hhhhhhhh hhhhhhhh R15/R0 hhhhhhhh hhhhhhhh Rl hhhhhhhh OLA hhhhhhhh OLB hhhhhhhh 


$ EXT 


OLD PSW hhhhhhhh hhhhhhhh R15/R0 hhhhhhhh hhhhhhhh Rl hhhhhhhh OLA hhhhhhhh OLB hhhhhhhh 


© svc 


OLD PSW hhhhhhhh hhhhhhhh R15/R0 hhhhhhhh hhhhhhhh Rl hhhhhhhh OLA hhhhhhhh OLB hhhhhhhh 



Figure GTF-12. Format of Minimal Trace Records for DSP, 10 (including PCI), 

SIO, PI (including SSM) , EXT, and SVC (Model 65 Multiprocessing) 



n 

•a 






HEXFORMATj AID hh FID hh EID hh hhhhhhhh hhhhhhhh hhhhhhhh hhhhhhhh hhhhhhhh hhhhhhhh 

JUSER ( hhhhhhhh hhhhhhhh hhhhhhhh hhhhhhhh hhhhhhhh hhhhhhhh 

] SYSTEM ( hhhhhhhh hhhhhhhh hhhhhhhh hhhhhhhh hhhhhhhh hhhhhhhh 

[SUBSYS I hhhhhhhh hhhhhhhh hhhhhhhh hhhhhhhh hhhhhhhh hhhhhhhh 

' ' hhhhhhhh hhhh. . . 



Figure GTF-13. Hexadecimal Format Records 




Control Records 



GTF produces two types of control records: timestamp records and lost 
data records. The first record in every block of trace output is a 
timestamp record. A lost data record appears to signal trace events 
that were not recorded because the GTF buffers were full or because GTF 
has temporarily suspended operations during ABEND or SNAP processing. 
Figure GTF-14 shows the general format of a timestamp record. 



length 00 AID FID reserved timestamp date options 

I L 



*— 2 bytes 



•4 bytes 
1 byte 

1 1 byte 

2 bytes 



1 — 4 bytes 



•4 bytes 



4 bytes 



Figure GTF-14. General Format of a Timestamp Control Record. 
The fields in the record contain the following information: 
length 

total length of the record in bytes. 
00 

always zero. 
AID 

For control records this field is always zero. 
FID 

For timestamp control records, this field is always X , 04 l . 
reserved 

reserved for future use. 

timestamp 

timer units (in hexadecimal) representing the time when the control 
record was constructed. If GTF is running on an MFT system with no 
timer option, this field is zero. 



date 



year and Julian day, in hexadecimal. The format is X'OO yy dd dc* 
where c is the packed decimal sign. 



options 



GTF options in effect. For detailed information about this field r 
see Figure APNDX-2 in the Appendix. 
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Figure GTF-15 shows the general format of a lost event record, 
length 00 AID FID reserved timestamp events 

l 

4 bytes 



L 



1 — 4 bytes 
4 bytes 



bytes (optional) 

L 

4 bytes 



1 byte 



2 bytes 



1 byte 



2 bytes 



Figure GTF-15. General Format of a Lost Event Record. 

The fields in the record contain the following information. 

length 

total record length in bytes. 
00 

always 00 
AID 

always 00 in control records 
FIC 

format identifier. Valid values are: 

X'05* — events lost because buffers full. 
X*06' — events lost because GTF disabled temporarily, 
reserved 

reserved for future use. 

timestamp 

timer units (in hexadecimal) representing the time when the control 
record was constructed. If GTF is running on an MFT system with no 
timer option, this field is zero. 

events 

number of traceable events lost (in hexadecimal). 

bytes (present only in records created under buffer- full condition) 

number of bytes of data lost (in hexadecimal) . This field is not 
formatted by the EDIT function of IMDPRDMP. 
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Chapter 4: IMCJQDMP 

Operates as a stand-alone program to format and print the system job queue. 



JQDMP 
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Introduction 



IMCJQDMP is a service aid program that produces a formatted copy of the 
contents of the IBM System/360 operating system's job queue data set 
(SYS1.SYSJ0BQE) . The program operates in stand-alone mode; that is, it 
is independent of any operating system. 

It may be said that system control is centered in the job queue. Its 
component tables and blocks store the dynamic environmental descriptions 
that regulate the processing of all jobs submitted to the operating 
system. Detailed descriptions and layouts of the record types which may 
be encountered in the job queue data set may be found in the following 
publications: IBM System/360 Operating System: MVT Job Management, 
| GY28-6603, and Control Program with MFT, GY27-7128. 

IMCJQDMP may be used to dump the entire job queue, or the user may 
optionally specify selected portions of it for printing. 



JQDMP 
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Function of IMCJQDMP 



In determining the cause of a job or system failure, it is often 
desirable to know precisely what was contained in the job queue, or in 
specific portions of it, at the time of such failure. 

For example, the user may attempt to initiate a warm start, and 
fail. A warm start failure tends to be a critical problem, as it is 
dependent upon job queue structure for its proper functioning. A dump of 
the job queue would be an invaluable aid in tracing the cause of such a 
failure. 

There are also the instances in which the scheduler ABEND 0B0 occur, 
indicating an I/O error on the job queue data set. This ABEND is often 
caused by an invalid TTR-address being used to access the job queue. A 
job queue dump provides precise information as to the address of each 
record, and, in addition, allows access to certain queue records which 
are chained together by a TTR-address contained in a primary record. 
Such information is vital in determining the cause of the I/O failure. 

In many other situations, it may be necessary to interpret and 
examine the main storage chains reflected in the control blocks 
contained in the job queue. 

Optimally, this information should be made available to the user: 

• Without disturbing the prevailing status of the job queue; 

• whether or not the system is operational; 

• without prior knowledge of the exact location of the job queue data 
set on its assigned direct access volume; 

• on a record-by-record basis, according to direct access volume 
address; and 

• conveniently formatted for ready access and interpretation. 

The IMCJQDMP program is designed to supply specialized job queue dumps 
incorporating all these features. 

The program functions in stand-alone fashion, a circumstance which 
is particularly beneficial in instances where the system is involved in 
the failure. Since it does not function under the operating system, it 
is not enqueued upon the job queue data set and, therefore, does not 
alter the existing status of the records that are to be dumped. The 
printed queue records reflect precisely what they contained at the time 
of malfunction. Nor is it required that the user know the explicit 
address of SYSl.SYSJOBQE. Only the address assigned to the direct access 
device on which the volume containing the job queue is mounted need be 
supplied to the dump program. The program determines the address of the 
job queue data set by reading the queue volume's VTOC (volume table of 
contents) . The VTOC contains data set control blocks (DSCBs) 
corresponding to each data set and to contiguous blocks of unassigned 
tracks on the volume. 
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When the queue has been found by IMCJQDMP, records are read and, 
according to the user's exercise of the available options, are either 
serially or selectively identified by type and address, formatted, and 
written to the chosen output device. This may be either a 1403 printer 
or an unlabeled 9- or 7-track magnetic tape volume. Printing the tape 
output of IMCJQDMP is discussed under "Tape Output Processing." 



JQDMP 
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Retrieving 1MCJQDMP 



The Job Queue Dump program is supplied in object module form, together 
with an absolute loader. The program resides on the OS/360 Distribution 
Library packs as a member (IMCJQDMP) of component library SYS1.DN554A. 
In preparing the program for use, the module IMCJQDMP must be punched 
from the component library or copied to a nonlabeled magnetic tape. The 
card deck or tape may then be used to load the program for execution. 

The JCL statements for punching the program from the component 
library are shown in Figure JQDMP-1. This example assumes that the 
distribution libraries are cataloged; if they are not, add the UNIT and 
VOL=SER parameters to the SYSUTl data definition statement. 



//QDUMP 


JOB 


//STEP 


EXEC 


//SYS PRINT 


DD 


//SYSUTl 


DD 


// 




//SYSUT2 


DD 


//SYSIN 


DD 


PUNCH 




/* 





MSGLEVEL=(1,1) 
PGM=IEBPTPCH 
SYSOUT=A 

DSN=SYSl. DN554A (IMCJQDMP) , DISP=OLD, 
DCB=(BLKSIZE=3600,LRECL=80,RECFM=FB) 
UNIT=2540-2 



Figure JQDMP-1. 



Sample JCL Statements Needed to Punch IMCJQDMP 
from Component Library SYS1.DN554A 
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IMCJQDMP may be used with any S/360 or S/370 CPU, and requires about 
18K bytes of main storage for execution. I/O device requisites are a 
card reader (or, optionally, a 2400 tape drive) for initial program 
loading (IPL); one of the following consoles: 1052, 3066, 3210, 3215, or 
5450; and one of the following DASD devices — 2311, 2312, 2313, 2314, 
2318, 2319, 2301, 2303, 2305, or 3330 — for input, and either a 1403 
printer or a 2400 tape drive for output. Figure JQDMP-2 describes the 
flow of processing when IMCJQDMP is used. 



IMCJQDMP Module and Loader 



Punched 
Card Deck 



OR 



IPL 



CPU 




Program Initialization 



Processing 



Job Queue 
Dump Listing 




JQDMP 



Console 
Commands 




SYS1.SYSJOBQE 



Figure JQDMP-2. Flow of Processing for IMCJQDMP 
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Job Queue Format 



Input to IMCJQDMP is the system's job queue data set (SYS1.SYSJ0BQE) , 
which is maintained on a permanently resident direct access volume. The 
job queue is composed of control records and work queues, created and 
updated by diverse system components. Figure JQDMP-3 shows the format 
of a job queue. 









Master QCR 


36 


36 
HOLD QCR 


36 
ASB QCR 




1296 


















(C 


36 Output QCRs 




asses A - Z and - 9) 


RJE QCR 


36 








15 Input QCRs 




540^ 


(Classes A - O) 




756 








21 Reserved QCRs 






LTH for First 
Logical Track 


20 

/ 




176 








First 176- 


Byte Record in First Logical Track 






l> 


/ 




Additional 176-Byte Records 






7 






in First Logical Track 


Z 1 yt Additional Logical Tracks 




LTH for Last 
Logical Track 


V 20 


Last Logical Track's 176-Byte Records 

















Cc 
Re 
Ar 



Lo< 
Trc 
Ar. 



T. 



Figure JQDMP-3. Sample Job Queue (SYSl. SYSJOBQE) Format 

After Initialization 

The job queue data set consists of 76 work queues: 

• 15 input queues, one for each job class. 

• 36 output queues, one for each output class. 

• 1 free-track queue, from which work queue space is assigned as 
needed. Immediately after job queue initialization, the entire data 
set consists of free tracks. 

• 1 automatic SYSIN batching (ASB) queue. 

• 1 TSO Background Reader queue. 

• 1 remote job entry (RJE) queue. 

• 1 HOLD queue for temporarily dequeued jobs. 

• 21 reserved queues. 
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These work queues consist of assigned logical tracks. A logical 
track may be defined as an area of contiguous space in the data set 
large enough to contain a 20-byte logical track header (LTH) record, 
followed by a predetermined number of 176-byte data records. Figure 
JQDMP- 4 describes the format of a logical track header record. 



Offset 
Hex Dec 






Reserved 


4 


4 


Reserved 


4 


8 


1 
Reserved 


First Logical 2 
Track of the Job 


1 
Reserved 


12 


Next Logical 2 
Track of the Job 


Number of ' 
Tracks Assigned 


1 
Type 


16 


1 
Reserved 


Jo be lass ' 
of the Job 


Last Logical Track 
of the Next Job 


2 



Figure JQDMP-4. Logical Track Header (LTH) Record Format 



JQDMP 



In Figure JQDMP-4 and subsequent figures, where applicable, byte size of 
a field is shown in the upper right corner; offset from the beginning of 
the record, in hexadecimal and decimal notation, is given along the left 
margin. 

Content of the type field in an LTH record indicates the type of 
queue to which the logical track has been assigned: 



Field Content 



Queue Type 



1 

2 

3-38 

39 

40-54 



HOLD Queue 

ASB Queue 

Output class queues 

RJE Queue 

Input class Queues 
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To keep track of individual work queues, a control area in the job queue 
data set maintains a series of 3 6 -byte minor queue control records 
(QCRs) — one QCR for each work queue arrayed upon the job queue (see 
Figure JQDMP-5), plus a master QCR (see Figure JQDMP-6). 



Offset 
Hex Dec 



C 12 

10 16 

14 20 

18 24 

1C 28 

20 32 



Address of Last LTH of Highest 2 
Priority Entry on Queue 


2 

14 


2 
13 


2 
12 


2 
11 


■ ■ 2 
10 


2 

9 


2 
8 


2 
7 


2 
6 


2 
5 


2 
4 


2 

3 


2 
2 


2 
1 


2 



Hold ! Highest 1 
Queue j Priority 


3 
Address of ECB for First Task Requesting Work 



~1 



Addresses of last LTH of I 
entry having indicated pr 
I 



J 



Figure JQDMP-5. Example of Minor Job Queue Control Record 



Offset 
Hex Dec 



c 


12 


10 


16 


14 


20 


18 


24 


1C 


28 


20 


32 



8-byte Disk Address of the Master QCR 
MBBCCHHR 


1 
Reserved 


2 
Displacement of First Track of the Free Queue 


Reserved 


Number of Logical Tracks in ^ 
the Job Queue Data Set 


Number of Logical Tracks in 
the Free-track Queue 


Number of Tracks Reserved for Canceling 2 
of Job Steps When Queue Is Full 


Number of Tracks Reserved for 
Any Initiator 


Displacement of Last Available 2 
Logical Track 


Displacement of First Track 
Containing Only Job Queue Records 


2 
Number of QCRs per Physical Track 


Number of Job Queue Records 
per Physical Track 


2 

Number of Records per Logical Track 


Number of Logical Tracks for Each 
Problem Program Partition 


2 
Number of QCRs on the Mixed Track 


Address of First Record on First Track 
Containing Only Job Queue Records 



Figure JQDMP-6. Master Job Queue Control Record Format 
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Using IMCJQDMP 



To use IMCJQDMP, initial program load (IPL) the program from the card 
reader or from the tape unit on which a tape-copy of the deck is 
mounted. This is done by setting the LOAD UNIT dials on the console 
control panel to the unit address of the card reader or the tape drive, 
and depressing the LOAD key on the control panel. When loading has been 
accomplished, the program enters a wait state, indicated by the lighting 
of the WAIT light on the console. Pressing the console request or enter 
key at this point results in the console message: 

IMC000A ENTER 0=XXXD,Q=YYY ( ,S) OR PRESS 
INTERRUPT KEY FOR O=00E,Q=191 

Message IMC000A is a request for parameters giving specifications for 
the desired dump. If the operator responds by depressing the external 
interrupt key without entering a device identification command through 
the console, the dump output will be written to the 1403 printer 
assigned device address 00E; input will be read from the direct access 
volume mounted on the disk drive assigned device address 191. 

Device Identification Command 

If the device identification command is entered, its format is: 

0=xxxd , Q=yyy j , SELECT / 
j,s } 

where 

0=xxxd 

is the output address parameter; 

Q=yyy 

is the input address parameter; 

SELECT (or S) 

indicates that selective rather than full printing of the job queue 
is desired. 

Output Address Parameter 

The output address parameter may be omitted entirely. If it is, the 
output address will default to the 1403 printer at device address 00E. 
If the parameter is entered, it must precede the input address 
parameter. In making the entry. 



JQDMP 



XXX 



is replaced with the address of the desired output device. Valid 
choices are the 1403 printer and the 2400 tape drive. 
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indicates the output device type. The character T is entered if a 
2400 tape drive address has been specified in the xxx field. 
Example: 0=18 2T. 

The d field is omitted if output is to go to the 1403 printer. 
Example: 0=00 E. 

Input Address Parameter 

In the input address parameter, 

yyy 

is replaced with the address of the direct access device upon which 
the volume containing the SYS1. SYSJOBQE data set has been mounted. 

Selective Dumping Parameters 

If an entire job queue data set is to be dumped, the SELECT (or S) 
parameter is omitted from the device identification command. 

If the SELECT (or S) parameter is included in the command, the 
program will issue the console message: 

IMC001A SPECIFY SELECT PARAMETERS 

and wait for a reply. The two valid parameters, QCR= and JOBNAME=, and 
their possible values are discussed separately. 

QCR= Parameter 

The QCR= parameter specifies that a particular work queue within the job 
queue data set is to be dumped. When this parameter is specified, the 
dump output listing will contain the data set's master queue control 
record and the queue records associated with the named work queue. The 
possible values for the QCR= parameter are: 



QCR= 



~\ 



where: 



ASB 

CLASS=y 

FREE 

HOLD 

RJE 

SYSOUT=x 

SUBMT 



y 



y is replaced with one of the 15 input job class indicators, A 
through O, and 

x is replaced with one of the 36 output class indicators, A through 
Z and through 9. 

If FREE is the value used, the master QCR and all logical tracks 
enqueued upon the free-track queue are dumped. The output listing for 
any of the other values will include the associated minor QCRs as well. 
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The values CLASS= and SYSOUT= must be completed with the 
system-assigned symbol of the particular input or output class desired- 
Examples : 

QCR=SYSOUT=C 

will result in a dump of the job queue's master QCR, the C-class output 
work queue's minor QCR, and the logical tracks assigned to the C-class 
output work queue. 

QCR=RJE 

will produce output consisting of the job queue's master QCR f the RJE 
work queue's minor QCR, and its assigned logical tracks. 

JOBNAME= Parameter 

The JOBNAME= parameter signifies to IMCJQDMP that the fifteen input work 
queues are to be searched for logical track areas assigned to the named 
job or jobs. Associated system message blocks and data set blocks will 
also be dumped. From one to four jobnames, enclosed in parentheses, may 
be specified in the value field of the parameter. Example: 

JOBNAME= (TAX, NUMBER) 

will produce a dump listing containing the assigned logical track areas, 
the system message blocks and the data set blocks, if any, associated 
with jobs named TAX and NUMBER, respectively. 

Combining QCR= and JOBNAME= Parameters 

The time required to search out the records associated with a particular 
job may be considerably reduced if the input class is known to the dump 
program. This passing of class information to IMCJQDMP may be effected 
by using the QCR= and JOBNAME= parameters in combination. For instance: 

QCR=CLASS=G, JOBNAME= (LIST) 

will cause only the class G input work queue to be searched for records 
concerned with the job named LIST. 

Completion Message 

After the selective dump parameters have been accepted, IMCJQDMP 
performs the requested task. When the operation has been completed, 
message IMC001A is reissued. Additional selective dump parameters may be 
entered if more information is desired. When all user requests have been 
fulfilled: 

END 

is entered through the console. The message: 

IMCOOUI DUMP COMPLETED 



JQDMP 
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//PRINT 




JOB 


//STEP 




EXEC 


//SYSPRINT 


DD 


//SYSUT1 




DD 


// 






//SYSUT2 




DD 


//SYS IN 




DD 




PRINT 


/* 







is then issued. Note that when no selective dump parameters are entered, 
the program ends automatically after dumping the full job queue, issuing 
message IMC004I at completion of the operation. 

Tape Output Processing 

For magnetic tape output, IMCJQDMP creates 121- byte records, one record 
to a block. Each record contains a machine control character in its 
first byte. 

Figure JQDMP-7 gives a sample of the job control statements needed 
to print IMCJQDMP 9- track tape output with the IEBPTPCH utility program. 

MSGLEVEL=(1,1) 
PGM= IEBPTPCH 
SYSOUT=A 

UNIT=2400 , LABEL= ( , NL) , VOL=SER=QDUMPT , 
DISP=( OLD, KEEP ),DCB= (RECFM=F,BLKSIZE=121,LRECL=121) 
SYSOUT=A 
* 

PREFORM=M 

Figure JQDMP-7. Sample JCL Needed to Print 9-Track JQDMP Tape Output 

For 7-track tape printing, there is an additional consideration. 
Initial program loading of IMCJQDMP generates a system reset which, on a 
7-track control unit, has the following effect: 

1. Mode is set to 800 bits per inch. 

2. If the data conversion feature is present in the control unit, the 
data converter is turned on. 

3. The translator is turned off. 

4. Odd parity is established. 

When the dump output has been written to 7-track tape, therefore, 
the following additional DCB parameters should be coded on the SYSUT1 DD 
statement for the IEBPTPCH utility if the data conversion feature exists: 

DEN=2,TRTCH=C 

If the data conversion feature is not included in the system, the TRTCH 
keyword must be omitted. 

Standard Label Processing 

For output to magnetic tape, IMCJQDMP automatically performs standard 
label processing; the user has no option to bypass this function. The 
extent of the label processing is confined to protecting security 
protected data sets and tapes with unexpired expiration dates; and, if 
multiple- volume output is produced, to maintaining standard labeled 
tapes, provided the first volume of IMCJQDMP output has standard labels. 



94 Service Aids (Release 21) 



When verifying that a mounted tape has standard labels, IMCJQDMP 
will read the labels (if present) in the density set for the tape drive; 
therefore, the user must be careful to ensure that the labels on the 
tape were recorded in the same density as the recording density set for 
the tape drive on which the tape is mounted. If the recording density 
for the drive is different from that of the tape, IMCJQDMP will assume 
that the tape has no labels, and will create non-labeled tape output. 

Standard Labeled Output 

If the user desires standard labeled output, he must mount a standard 
labeled tape. IMCJQDMP checks for an IBM standard volume label (VOL1) 
and the standard data set header label one (HDRl) . Any user labels will 
be ignored and destroyed if the tape is eventually used for IMCJQDMP 
output. If the mounted tape contains a security protected data set, 
IMCJQDMP will request a new tape. If the expiration date in the HDRl 
label has not occurred, IMCJQDMP will request permission to use the 
tape; if the operator's reply is negative (M) , a new tape is requested. 
Otherwise, the tape will be used, and will contain standard labels, with 
the VOL1 label remaining the same as it was when the tape was mounted. 
The header and trailer labels will be created to be compatible with 
OS/360 standard labels, with a data set name of "JQDUMP." 

Non- Labeled Output 

If the user desires non-labeled tape output, the first volume mounted 
must be non-labeled. A non-labeled tape, to the IMCJQDMP program, is a 
tape that does not have a first record of 80 characters whose first four 
characters are equal to "VOL1." If the first record on the first volume 
is a standard volume label, processing as outlined in "Standard Labeled 
Output" will occur. 

Abnormal Termination of JQDMP 

It is conceivable that a condition can arise that will prevent IMCJQDMP 
from running to normal completion. Indeed, it may be the same error 
condition that caused the system to malfunction; that is, I/O error on 
the queue device, or invalid chaining of queue records. Under 
unrecoverable error conditions, the program comes to a halt in a wait 
state. The type of error encountered by the program may be determined by 
examination of the contents of the program status word (PSW) which was 
current at the time of the malfunction. 

The PSW is a doubleword, having the following format: 
Program Status Word 



System Mask 


Key 


AMWP 


Interruption Code 


7 8 11 12 15 16 




31 


ILC 


CC 


Program Mask 


Instruction Address 



32 



33 34 35 36 



39 40 



63 



The publication IBM System/360 Principles of Operation, GA22-6821, 
gives a comprehensive description of each of the fields in the PSW. For 
the purpose of locating the cause of trouble in running IMCJQDMP, the 
user would be concerned mainly with the contents of the instruction 
address field, bits 40 through 63, in the event of a program check 
error, or with the interruption code, bits 16 through 31, if there has 
been an unrecoverable I/O error. 
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By displaying the contents of the instruction address register (IAR) 
on the system maintenance panel of the console, the address in main 
storage of the pertinent PSW can be obtained. The two low-order bytes of 
the IAR will be set according to the pattern: 

ODnn 

where nn will contain the hexadecimal value of the location where the 
PSW was stored at the time the error condition was discovered. 

For example, should a program check occur, the IAR will be set to 
0D28, indicating that the double word at location hex 28 will contain 
the Program Interrupt old PSW. (A note for users of doubleword fetch 
machines, such as M65 or M75: The IAR is updated by 8 after an 
interrupt, and this must be subtracted from the IAR setting to obtain 
the true location to be checked. In this example, for instance, the 
reading would be 0D30, and subtracting hex 8 would give the true 0D28 
location. ) 

If the IAR display indicates 0D20, inspecting the interruption code 
in the PSW stored at hexadecimal location 20 will indicate the nature of 
the I/O error: 

IC Content Error Cause 

x'OO 1 Channel end, device end, and unit check bits are 

all off in a stored channel status word (CSW) . 

x"02* Invalid track-per-cylinder count in the format 4 

DSCB (data set control block) of the queue 
volume. 

x'03* I/O error during write operation to output 

device or system console. The number of retries 
for recoverable tape I/O errors is set at 20. 

x*20' I/O error during read operation from 

SYS1/SYSJOBQE data set. The number of retries 
for recoverable DASD I/O errors is set at 16. 

x*26 f I/O error during read operation from system 

console. 
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IMCJQDMP Output 



IMCJQDMP dumps the contents of job queue records in hexadecimal 
representation, with six 4-byte words appearing in a line of printed 
output. In addition, translatable EBCDIC characters are printed in a 
one-character-per-byte format at the end of the printline. EBCDIC 
characters which cannot be interpreted in print are represented by 
periods. Record identification is shown on the sample listing page 
depicted in Figure JQDMP-8. 



JQDMP 
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00 



CO 

CD 

< 

O 
CD 

> 

a. 

CO 



H 
(D 
0) 
CO 
(D 



TTR NN 


TYPE 


DISP 


O=0CE,Q=192 






000001 


QCR 


0000 




MASTR 


0018 


000002 


QCR 


OOOO 




HOLD 


0018 


000003 


QCR 


OOOC 




ASB 


0018 


C0000A 


QCR 


OOOC 




OUT=A 


0018 


C00005 ^ — >w 


QCR 


OOOO 




. OUT=B 


0018 



SYSJOBQE ClitYF 



PAGE 0CC1 



CCCOOCOO 02000001 CC066701 01910180 00060C0C 05B10003 * ..* 

CC250CQF 0C0CC0C6 G002001C *.. * 

OCOOOCOO COCOCOCC OOOCOOOC CCCOOCCC CCOOOCOO oooooooo *... * 

OCCOOCCO oooooooo OOOCOOOC * * 

OCCCOCCC OOCOOOCC CCGCOCCC CCCCOOCO OOOOOOOO OOOOOOOO * * 

OCOCCCOO OOOOOOOC CCOCOOOC * * 

OCOCOCOO COOOOOCO OCOGOOCC CCCOOOCO CCOOOOOO COOOOOOO *......... * 

OCCCOCCC OCOCOOCO C006056C * * 

OCCOOCCO COOOOOCO OOOOOOOO OCCOOCCO CCOOOCCO oooooooo * * 

ccccocoo cocoooco C00CCO0C 






TTR 

000202 

000203 
000 20 A 

000205 

C00206 

00020F 
000210 
000211 


NN 

0001 
0002 

0003 

OOOA 
OOOD 
OOOE 
OOOF 


TYPE 

OCR 
RESRV 

LTH 
LTH 


DISP 

OOOO 
0018 

OOOO 

OOOO 
0018 
0030 
00A8 
C060 
0078 
C090 
00A8 

OOOC 
0018 
0030 
00A8 
00 60 
0078 
0090 
00A8 

OOOO 

OOOO 
0018 
0030 

-^ooAa. 


SYSJOBGE CI 

OCOOOCCC CCOOOOOO OOOCOOOC 
CCOOOCCO COCOOOCC OCOCOOCO 

C9C5C503 06C7A0AC OCCCCIOA 

E2E8E2F1 ABE2E8E2 E5D3D6C7 
ACACACAO ACAOAOAO ACAOAOAG 
ACACACAO COCOCOCO OOOOOOOC 
OCOOOCOC 8C000000 63016E63 
FF7AACC0 50800E28 OOOCGOCC 
E2D9C5E2 AOAOAOAO AOAOAOAO 
ACAOACAO C0000206 00000C88 
OCCCOCCC COOOOIOO 

E2E8E2F1 ABE2E8E2 E5D3D6C7 
ACAOACAO AOAOAOAO AOAOAOAO 
ACACACAC COOCOOCO CCCOOOCO 
CCCCOCOO 8OCO0000 63016E63 
CE29A000 508C0E28 OOOCOCCC 
E2D9C5E2 AOAOAOAO ACACAOAC 
ACAOACAO CCC0C207 000C0088 
OCCOOCCO COOOOIOO 

ENTIRE RECORD CONTAINS B 

ZERC RECORDS SUPPRESSED 

E2DAC6A0 AOAOAOAO OOOOOECA 

E2E8E2F1 ABCAC1D5 E7ACA0AC 

ACAOACAO AOAOAOAO AOAOAOAO 

ACACACAO COCOOOCO OOOOOOOC 

_O0CCOCQC COOOOOCO OOOOOOOC 


JP F 
OCOCOCOO OOOOCCOO 

00C0010C CCOFOCOO 

E7ACACA0 AOAOAOAO 
ACACAOAO ACAOAOAG 
CCCCGCCC CCOOOICO 
015E0C80 OCOOOCOC 
CCCGOGOC CCOOCCOO 
ACAOAOAO ACACAOAO 
CCCCOCCO CCOOOOOO 

E8ACACA0 ACAOACAO 
ACAOACAO AOAOAOAO 
CCCOOCCC CCCOCIOC 
C15E0C80 CCOOOOOO 
CCCOOOCC CGCCGCOO 
ACAOAOAO AOAOAOAO 
CCCOOOCO CCOOOOOO 

INAPY ZEPGS 

CCOOOICO CCOFOCOO 

ACAOAOAO ACAOAOAO 
AOAOAOAO AOAOAOAO 
OCOCOOCO COOOOIOO 

coorar an oooooooo 


oooooooo 

AOAOAOAO 
AOAOAOAO 
02010000 
COOOOOGO 
0001E2E8 

aoaoaoao 

coooooco 

aoa;oaoao 
aoaoaoao 
oooooooo 
oooooooo 

0001E2E8 
AOAOAOAO 
OOOCOCOO 

AOAOAOAO 
AOAOAOAO 
OOOOOOOC 

ojocooaQ 




PAGE 0006 




* 




*SYS1.SYSVL06X 

* 


* 
* 










*SRES 


* 


*SYS1.SYSVL0GY 

* 


* 

* 

* 










*SRES 


* 




* 


*SYS1.MANX 
* 


* 
* 

















Figure JQDMP-8. Sample of IMCJQDMP Output Listing 



Record Identification 

Record identification on the listing includes: 

TTR 

The direct access address , relative to the beginning of 
SYS1.SYSJ0BQE, is supplied for both QCR and logical track records. 

NN 

Supplied for logical track records only, this address is a binary 
number assigned relative to the beginning of the specific work queue 
in which the printed record resides. Starting with an assignment of 
1 for the first logical track header allotted to the queue, the NN 
address increases by 1 for each additional record in the work queue. 



TYPE 



Figure JQDMP-9 lists the types of queue records dumped by IMCJQDMP, 
and the listing identification given to each recognizable type. QCRs 
and LTHs are identified through their position in the job queue's 
structure. Identification for records from the logical track area 
is obtained from the ID field, hexadecimal offset 03 (byte 4) of 
each record. Recognizable ID values are listed in the figure. 
Unidentifiable nonzero records — the job file control block ( JFCB) , 
job file control block extension ( JFCBX) M and system output class 
directory (SCD) — are printed without type labeling. 



JQDMP 



QCR ID 



Each queue control record is further labeled with the name of the 
unique work queue with which the QCR is associated. Figure JQDMP-10 
lists the identification given by IMCJQDMP to each work queue type. 



DISP 



Indicates the displacement, or position, within a queue record of 
the next hexadecimal word to be printed on the listing. The first 
word of the first printed line for a given record is at displacement 
0000; the first word of the second printed line, if one exists, is 
displacement 0018 hex (24 decimal). 
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Hex ID Value 


Output Type ID 


Job Queue Record 


01 


ACT 


Account Control Table 


15 


DSB 


Data Set Block 


OF 


DSENQ 


Data Set Enqueue Table 


07 


DSNT 


Data Set Name Table 


00 


JCT 


Job Control Table 

Job File Control Block (JFCB) 

Job File Control Block Extension (JFCBX) 




LTH 


Logical Track Header 


OA 


POT 


Procedure Override Table 




QCR 


Queue Control Record 

System Output Class Directory (SCD) 


02 


SCT 


Step Control Table 


OC 


SCTX 


Step Control Table Extension 


03 


SIOT 


Step Input Output Table 


05 


SMB 


System Message Block 


06 


VOLT 


Volume Table 



Figure JQDMP-9. Queue Record Type Identification 



Output QCR ID 


Corresponding Work Queue 


ASB 


Automatic SYSIN Batching Queue. 


CLS=y 


System Input Job Class Queues; y is replaced 




with the appropriate class, A-O. 


HOLD 


Hold queue. 


MASTR 


Master QCR. 


OUT=x 


System Output Job Class Queues; x is replaced 




with the appropriate class, A-Z or 0-9. 


RESRV 


Reserved QCRs. 


RJE 


Remote Job Entry Queue. 


SUBMT 


TSO Background Reader Queue. 



Figure JQDMP-10. Queue Control Record Identification 



Zero Records in the Dump 

Records in each logical track are read and dumped sequentially. When a 
record in the logical track area contains only binary zeroes, its TTR 
and NN positions are given, but the record is not dumped. The notation: 

ENTIRE RECORD CONTAINS BINARY ZEROES 

is printed on the listing. A second contiguous zero-filled record would 
be similarly treated. But when three or more contiguous zero-filled 
records are encountered, only the first is treated as outlined above. 
Subsequent records are bypassed until a nonzero record or a logical 
track header, whichever occurs first, is encountered. Then the TTR and 
NN of the last zero-filled record and the listing message: 

ZERO RECORDS SUPPRESSED 

are printed. The number of suppressed records may be computed by 
subtracting the NN of the first such record from that of the last. 
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Contents of the Dump Listing 

If an entire job queue is being dumped, the output listing is produced 
in two sections. The first contains all queue control records; the 
second, the logical track area records. 

If selective dumping of a job queue data set is stipulated, the program 
prints the specified parameters on the top of an output page, then 
follows with the appropriate QCRs and logical track area records. When 
particular job names are given as the selective dump parameters (see 
"Using The Job Queue Dump Program") , the records associated with each 
job are collected and printed under the given name. Each data set block 
(DSB) is printed immediately following the related step input/output 
table (SIOT) and labeled as such. The system message block (SMB) chain 
is printed as the last records for a given job. 
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Operational Considerations 



The time required to produce a full job queue dump is dependent upon 
space allocated to the SYS1. SYSJOBQE data set. The time required for 
this stand-alone operation may be reduced by using the tape output 
option of the program. In this way, the operating system may be more 
quickly brought back into service and the queue dump tape printed 
with a system utility program such as IEBPTPCH. Figure JQDMP-11 
shows the execution time difference between tape and printer output 
for various queue devices. 



Output Device 
Queue Device Printer (1403) Tape (2400) 

2311 11.3 minutes 4.0 minutes 
2314 19.5 minutes 6.9 minutes 
2301 49.5 minutes 17.4 minutes 



Figure JQDMP-11. IMCJQDMP Execution Time per 100 Tracks of Input, 

As a Function of the Output Device 
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Chapter 5: IMBLIST 

Formats and prints object modules, load modules, and CSECT identification records. 
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Introduction 



IMBLIST is a service aid that operates as a problem program under the 
IBM System/360 Operating System. It produces the following kinds of 
output that can help you debug complex programs: 

A formatted listing of an object module. 

A formatted listing of a load module. 

A load module cross reference listing. 

A formatted listing of all information in a load module's CSECT 
identification records (IDRs). 

A listing of all program modifications for a load module or library. 
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Features 



IMBLIST can help you solve programming problems in several ways. 

If you want to verify an object module, you can use IMBLIST to 
obtain a formatted listing of it. The listing contains SYM records 
produced by TESTRAN (if there are any), the external symbol dictionary 
(ESD), the relocation dictionary (RLD) , the text of the program 
containing instructions and data, and the END record. 

If you are interested in the relationships of control sections in a 
load module, you can use IMBLIST to get a listing of the load module 
along with its module map and cross-reference listing. You can then 
examine the control sections in the load module, the overlay structure, 
and the cross-references for each control section. 

If you want to trace modifications to the executable code in a 
control section, you can use IMBLIST to produce a formatted listing of 
all information in the load module's CSECT identification records 
(IDRs). An IDR provides the following information: 

• It identifies the version and modification level of the language 
translator and the date that each control section was translated. 
(Translation data is available only for control sections that were 
produced by a translator that supports IDR generation . ) 

• It identifies the version and modification level of the linkage 
editor that built the load module and gives the date the load module 
was created. 

• It identifies by date modifications to the load module performed by 
IMASPZAP. 

An IDR also may contain optional user-supplied data associated with the 
executable code of the control sections. 
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Executing IMBLIST 



You control IMBLIST processing by supplying control statements in the 
input stream. You must code the control statements according to the 
following rules: 

• Leave column 1 blank, unless you want to supply an optional symbolic 
name. A symbolic name must be terminated by one or more blanks. 

• If a complete control statement will not fit on a single card, end 
the first card with a comma and continue on the next card. Begin 
all continuation cards in columns 2 - 16. You must not split 
parameters between two cards; the only exception is the MEMBER 
parameters, which may be split at any internal comma. 

Listing a Load Module 

Use the LISTLOAD control statement to get a formatted listing of a load 
module. The format of this statement is: 

LISTLOAD rOUTPUT=(MODLIST)l [ ,TITLE= (' title ' f position) ] 

j XREF [ 
( BOTH >J 
:,DDN=ddname] |~,MEMBER= ((list, . . .) [" 

I membernamel 

The parameters of the LISTLOAD control statement are as follows: 

OUTPUT=type 

specifies the type of load module listing to be produced. 
OUTPUT=MODLIST requests a formatted listing of the control and text 
records of a load module, including its External Symbol Dictionary 
and Relocation Dictionary Records. OUTPUT=XREF requests a module map 
and cross-reference listing for the load module. OUTPUT=BOTH 
requests both a formatted listing of the load module and its map and 
cross-references. If this parameter is omitted, OUTPUT=BOTH will 
be assumed. 

TITLE-( 'title 1 , position) 

specifies a title, from one to forty characters long, to be printed 
below the heading line on each page of output. (The heading line 
identifies the page number and the type of listing being printed, 
and is not subject to user control. ) The position subparameter 
specifies whether or not the title should be indented; if 
TITLE=( * title* ,1) is specified, or if the position parameter is 
omitted, the title will be printed flush left, that is, starting in 
the first column. If you want the title indented from the margin, 
use the position parameter to specify the number of characters that 
should be left blank before the title. Note: Do not punctuate your 
title with commas, since IMBLIST recognizes these as delimiters. 
Anything that follows an embedded comma in a title will be ignored. 
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DDN=ddname 

identifies the DD statement that defines the data set containing the 
input module. If the DDN= parameter is omitted, IMBLIST will assume 
SYS LIB as the default ddname. 

MEMBER=j ( member 1, . . . member n) 
J member 

identifies the input load module (s) by membername or alias name- To 
specify more than one load module, enclose the list of names in 
parentheses and separate the names with commas. If you omit the 
MEMBER= parameter, IMBLIST will print all modules in the data set. 

Listing an Object Module 

Use the LISTOBJ control statement to obtain a listing of an object 
module. The format of this control statement is: 

LISTOBJ [TITLE= ( ■ title ' , position) ] 
[ ,DDN=ddname] 



[,MEMBER= j (member 1, . . .membern)/! 
j member I 



TITLE=( 'title' , position) 

specifies a title, from one to forty characters long, to be printed 
below the heading line on each page of output. (The heading line 
identifies the page number and the type of listing being printed, 
and is not subject to user control. ) The position parameter 
specifies whether or not the title should be indented; if 
TITLE=( 'title' ,1) is specified, or if the position parameter is 
omitted, the title will be printed flush left, that is, starting in 
the first column. If you want the title indented from the margin, 
use the position parameter to specify the number of characters that 
should be left blank before the title. Note: Do not punctuate your 
title with commas,, since IMBLIST recognizes these as delimiters. 
Anything that follows an embedded comma in a title will be ignored. 

DDN=ddname 

identifies the DD statement that defines the data set containing the 
input module. If the DDN= parameter is omitted, IMBLIST will assume 
SYS LIB as the default ddname. 

MEMBER= { (member 1,, . . .membern)) 
j member I 

identifies the input object module (s) by membername or alias name. 
To specify more than one object module, enclose the list of names in 
parentheses and separate the names with commas. CAUTION: You must 
include the MEMBER= parameter if the input object modules exist as 
members in a partitioned data set. If you do not include the MEMBER= 
parameter, IMBLIST will assume that the input data set is organized 
sequentially, and that it contains a single, continuous object 
module. 
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Listing CSECT Identification Records 

Use the LISTIDR control statement to get a formatted listing of a 
module's CSECT identification record (IDR). The format is: 

LISTIDR r OUTPUT=( IDENT)"] [ ,TITLE= ( ■ title ' , position) ] 

[ , DDN=ddname] |",MEMBER= ((memberl, . . .membern))! 
j_ ( member > J 

OUTPUT= type 

specifies whether IMBLIST should print all CSECT identification 
records or only those containing IMASPZAP data and user data. If 
you specifiy OUTPUT=ALL, all IDRs associated with the module will be 
printed. If you specify OUTPUT=IDENT, IMBLIST will print only those 
IDRs that contain IMASPZAP data or user- supplied data. If you omit 
this parameter, IMBLIST will assume a default of OUTPUT=ALL. 

TITLE=( 'title' , position) 

specifies a title,, from one to forty characters long, to be printed 
below the heading line on each page of output. (The heading line 
identifies the page number and the type of listing being printed, 
and is not subject to user control. ) The position parameter 
specifies whether or not the title should be indented; if 
TITLE=( 'title* ,1) is specified, or if the position parameter is 
omitted, the title will be printed flush left, that is, starting in 
the first column. If you want the title indented from the margin, 
use the position parameter to specify the number of characters that 
should be left blank before the title. Note: Do not punctuate your 
title with commas, since IMBLIST recognizes these as delimiters. 
Anything that follows an embedded comma in a title will be ignored. 

DDN=ddname 

identifies the DD statement that defines the data set containing the 
input module. If you omit the DDN= parameter, IMBLIST will assume 
SYSLIB as the default ddname. 

MEMBER=j (member!, . ..membern) 
j member 

identifies the input load module (s) by membername or alias name. To 
specify more than one load module, enclose the list of names in 
parentheses and separate the names with commas. If you omit the 
MEMBER= parameter, IMBLIST will print all modules in the data set. 
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Output 



IMBLIST produces a separate listing for each control statement that you 
specify. The first page of each listing always shows the control 
statement as you entered it. The second page of the listing is a module 
summary, unless you requested LISTOBJ; in that case, no module summary 
will be produced, and the second page of the listing will be the 
beginning of the formatted output. 

The module summary gives the member name (with aliases), the entry 
point, the linkage editor attributes, and system status index 
information (SSI) for the module being formatted. Figure LIST-1 shows a 
typical module summary. 



***** M 
MEMBER NAME PL1L0AD 
** ALIASES ** 


DULE SUMMARY ***** 

MAIN ENTRY POINT 000720 
SECONDARY ENTRY POINT ADDRESSES ASSOCIATED WITH ALIASES: 


**** LINKAGE EDITOR 

** BIT STATUS BIT 

NOT-RENT 1 
4 NOT-OL 5 
8 NOT- DC 9 
12 EDIT 13 


ATTRIBUTES OF 

STATUS 

NOT-REUS 
BLOCK 
ZERO-ORG 
NO-SYMS 


MODULE **** 

BIT STATUS BIT STATUS ** 

2 NOT-OVLY 3 NOT- TEST 
6 EXEC 7 MULTI-RCD 
10 EP > ZERO 11 RLD 
1H F- LEVEL 15 NOT-REFR 


MODULE SSI: NONE 



Figure LIST-1. Sample Module Summary for LISTLOAD 

The third page of the listing (or, for LISTOBJ, the second page) is 
the beginning of the formatted output itself. 

For LISTLOAD, this consists of the load module and/or the module map 
and cross-reference listing. Figure LIST- 2 shows an example of LISTLOAD 
module map output. Figure LIST-3 shows an example of the 
cross-reference listing for the same module. 

For LISTOBJ, the body of the listing consists of the object module 
listing, the module's external symbol dictionary, and its relocation 
dictionary. Figure LIST- 4 shows an example of LISTOBJ output. 

For LISTIDR, the third page of the listing begins a complete list of 
all CSECT identification records for the module. Figure LIST-5 shows an 
example of LISTIDR output. 

Complete descriptions of the fields in the formatted output listings 
can be found in the publication IBM System/360 Operating System: Linkage 
Editor (E) Program Logic Manual, GY28-6610, and Linkage Editor (F) 
Program Logic Manual, GY28-6667. 
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LISTING OF 


LOAD MODULE 


PL1LOAD 




PAGE 0001 


RECORD* 1 


TYPE 20 


- CESD 


ESDID 1 






ESD SIZE 240 








CESD* 


SYMBOL 


TYPE 


ADDRESS 


SEGNUM 


ID/LENGTH (DEC) 


(HEX) 






1 


PL1TC02 


00<SD) 


000000 


1 


1206 


4B6 






2 


PL1TC02A 


00(SD) 


0004B8 


1 


608 


260 






3 


IHEQINV 


06 (PR) 


000000 


3 


4 


4 






4 


IHESADA 


02<ER) 


000000 












5 


IHESADB 


02<ER) 


000000 












6 


IHEQERR 


06 (PR) 


000001 


3 


4 


4 






7 


IHEQTIC 


06<PR) 


000008 


3 


4 


4 






8 


IHEMAIN 


00 (SD) 


000718 


1 


4 


4 






9 


IHENTRY 


00(SD) 


000720 


1 


12 


C 






10 


IHESAPC 


02 (ER) 


000000 












11 


IHEQLWF 


06<PR) 


oooooc 


3 


4 


4 






12 


IHEQSLA 


06 (PR) 


000010 


3 


4 


4 






13 


IHEQLWO 


06(PR) 


000014 


3 


4 


4 






14 


PL1TC02B 


06 (PR) 


000018 


3 


4 


4 






15 


PL1TC02C 


06(PR) 


ooooic 


3 


4 


4 




RECORD* 2 


TYPE 20 


- CESD 


ESDID 16 






ESD SIZE 240 








CESD* 


SYMBOL 


TYPE 


ADDRESS 


SEGNUM 


ID/LENGTH (DEC) 


(HEX) 






16 


IHELDOA 


02 (ER) 


000000 












17 


IHELDOB 


02(ER) 


000000 












18 


IHEIOBT 


02 (ER) 


000000 












19 


IHEIOBC 


02(ER) 


000000 












20 


IHESAFA 


02 (ER) 


000000 












21 


IHESAFB 


02(ER) 


000000 












22 


AA 


02 (ER) 


000000 












23 


C 


OO(SD) 


000730 


1 


4 


4 






24 


B 


00 (SD) 


000738 


1 


4 


4 






25 


A 


OO(SD) 


000740 


1 


4 


4 






26 


IHESPRT 


00 (SD) 


000748 


1 


56 


38 






27 


IHEQSPR 


06(PR) 


000020 


3 


4 


4 






28 


IHEDNC 


02 (ER) 


000000 












29 


IHEVPF 


02(ER) 


000000 












30 


IHEDMA 


02 (ER) 


000000 










RECORD* 3 


TYPE 20 


- CESD 


ESDID 31 






ESD SIZE 64 








CESD* 


SYMBOL 


TYPE 


ADDRESS 


SEGNUM 


ID/LENGTH (DEC) 


(HEX) 






31 


IHEVPB 


02(ER) 


000000 












32 


IHEVSC 


02 (ER) 


000000 












33 


IHEUPA 


02(ER) 


000000 












34 


IHEVQC 


02(ER) 


000000 






















LISTING 


DF LOAD MODULE PL1LOAD 






PAGE 0002 


RECORD* 4 


TYPE 


01 


- CONTROL 


CONTROL SIZE 32 






CCW 06000000 40000780 






CESD* LENGTH 




















1 


04B8 






















2 


0260 






















8 


0008 






















9 


0010 






















23 


0008 






















24 


0008 






















25 


0008 






















26 


0038 


















RECORD* 5 












T E 


X T 












000000 




47FOF014 


07D7D3F1 


E3C3F0F2 


000000D8 


000004B8 


90EBD00C 


58B0F010 


5800F00C 






000020 




58F0B020 


05EF05A0 


4190D0B8 


50DC0018 


9200D062 


9201D063 


92COD000 


9202D063 






000040 




F811D090 


B132F810 


D092B080 


FA11D092 


B130F821 


D0A8D090 


F821D0AB 


D092D203 






000060 




D0AEB134 


F811D090 


B13CF810 


D092B080 


FA11D092 


B13AF821 


DOB2D090 


F821D0B5 






000080 




D09241A0 


A0600700 


9203D063 


4110B174 


58F0B05C 


05EF4110 


B11U4120 


B18358F0 






0O00A0 




B05405EF 


9203D063 


58F0B058 


05EF9204 


D0635880 


B070F821 


D09O8O00 


F821D093 






ooooco 




8002FA20 


D093B111 


5870B06C 


D2017000 


D091D201 


7002D094 


9205D063 


F821D090 






OOOOE0 




7000F821 


D0937002 


FA20D093 


B10F5860 


B068D201 


6000D091 


D2016002 


D0949206 






000100 




D0634150 


D0AE5050 


D0944150 


D0905050 


D0989680 


D0984110 


D09458F0 


B0«405EF 






000120 




5880B070 


D2038000 


D0909207 


D063F811 


D090B10C 


F810D092 


B080FA11 


D092B10A 






000140 




F9118000 


D0904770 


A0C8F911 


8002D092 


4780A0EE 


9208D063 


4110B168 


58F0B05C 






000160 




05EF4110 


B14058F0 


B05005EF 


9208D063 


58F0B058 


05EF9208 


D0639210 


D0634180 






000180 




D0A85080 


D0984180 


D0B25080 


D09C4180 


D0905080 


DOA09680 


D0AO4110 


D09858F0 






0001AO 




B04005EF 


D205D0B2 


D0909211 


D063D202 


D090D0B2 


F921D090 


B0D19200 


D0904780 






0001C0 




A13E9280 


D090D202 


D091D0B5 


F921D091 


B0CF9200 


D0914780 


A1569280 


D091D200 






0001EO 




D094D090 


D6 00 DO 9 4 


D0919180 


D0944780 


A19E9212 


D0634110 


B15C58F0 


B05C05EF 






000200 




4110B0A0 


4120B183 


58FOB054 


05EF4110 


D0B24120 


B18758F0 


B05K05EF 


9212D063 






000220 




58F0B058 


05EF9213 


D0634110 


B15058F0 


B05C05EF 


4110B084 


4120B183 


58F0B054 






000240 




05EF9213 


D06358F0 


B05805EF 


9214D063 


58F0B030 


0SEF47F0 


47FOF00C 


3C1E7F1 






000260 




000000D0 


90EBDOOC 


18AF41E0 


A0285830 


B0381B22 


50203050 


58F0B02C 


47F0F062 






000280 




9201D084 


58E01000 


50E0D088 


4580A03A 


07FA05A0 


4190D0B0 


50DC001C 


9200D062 






0002A0 




9209D063 


41A0A088 


07F80700 


47F0F00C 


03C1C3F1 


00000258 


9OEBDO0C 


58A0F008 






0002C0 




45E0A016 


9202D084 


D207D0A0 


10009200 


D0A458E0 


100850E0 


D0884580 


A03A47F0 






0002EO 




A0000700 


47F0FO0C 


03C1C3F2 


00000258 


90EBDOOC 


58AOF008 


45E0A016 


9203D084 






000300 




D207D0A8 


10009200 


D0AC58E0 


100850E0 


D0884580 


A03A47F0 


A0860700 


920BD063 






000320 




920CD063 


5880D0A0 


F821D090 


80005870 


D0A4FA21 


D0907000 


F821D093 


8002FA21 






000340 




D0937002 


9502D084 


4780A062 


9503D084 


4780A076 


5860D088 


F872D098 


D0904FE0 






000360 




D09810FE 


54E0B078 


90EFD098 


964ED098 


2B00 6A00 


D0987000 


6O0O47FO 


A0805880 






000380 




D088D201 


8000D091 


D2018002 


D09447F0 


A0805880 


D088D205 


8O0ODO9O 


58F0B060 






0003A0 




05EF920D 


D063920E 


D0635880 


D0A8F822 


D0908000 


5870D0AC 


FB22D090 


7000F822 






0003C0 




D0938003 


FB22D093 


70039502 


DO 8 44780 


A0E89503 


D0844780 


A0FC5860 


D088F872 






0003E0 




D098D090 


4FE0D098 


10FE54E0 


B07890EF 


D098964E 


D0982B00 


6A0OD098 


70006000 






000400 




47F0A106 


5880D088 


D2018000 


D091D201 


8002D094 


47F0A106 


5880D088 


D2058000 






000420 




D09058FO 


B06005EF 


920FD063 


58F0B02C 


05EFF014 


9180D001 


478OF03C 


5820D050 






000440 




12224770 


F03C59DC 


00101(770 


F03C58D0 


D00450DC 


00109180 


D0004710 


F03258D0 






000460 




D00447F0 


F0225020 


D00898EB 


D00C07FE 


58F0B030 


07FF584C 


00001244 


47B0F056 






000480 




587C0014 


D2 03 30 50 


70504140 


4001504C 


00005040 


30549200 


304C5O30 


D00818D3 






0004A0 




583C0010 


5030D004 


50DC0010 


5020D008 


5020D060 


07FE1C44 


00001000 


000014B8 






0004C0 




000024B8 


000034B8 


000044B8 


0Q0054B8 


000064B8 


00.0074B8 


oooooooo 


oooooooo 






0004E0 




00000434 


00000434 


00000000 


89300008 


00000648 


41660001 


0O0O02Et 


000002AC 
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LISTING OF LOAD MODULE PL1LOAD 






PAGE 0003 




000500 


00000258 


00000000 


00000000 


00000000 


00000000 


00000000 


00000000 


00000000 






000520 


0000073C 


00000738 


00000740 


00000748 


80000000 


00000001 


OC020000 


00000544 






0005H0 


00140011 


40D7D3F1 


E3C3F0F2 


6060C3D6 


D4D7D3C5 


E3C5C440 


00000560 


00270027 






000560 


40C5D9D9 


D6D96BC5 


E7D7C5C3 


E3C5C440 


C1C440C9 


E240F4FO 


4EF2F0C9 


40C2E4E3 






000580 


40C1C44C 


C9E24002 


OC040COO 


00000594 


002C002C 


40C5D9D9 


D6D96BC5 


E7D7C5C3 






0005A0 


E3C5C440 


C140C9E2 


40F1F84E 


F4F1C940 


C2E4E340 


C140C9E2 


40D9C5C1 


D3D3E840 






0005C0 


000C041C 


018C0C2C 


0C1C0000 


000005D4 


00120012 


40D7D3F1 


E3C3F0F2 


6060C5D5 






0005E0 


E3C5D9C5 


C440000C 


040C050C 


000C006C 


000C020C 


010C001C 


0000058C 


0000063B 






000600 


00000740 


80000638 


00000748 


00000242 


80000534 


00000748 


0000021C 


80000534 






000620 


00000748 


0000016C 


80000534 


00000748 


000000A4 


80000534 


8903802C 


8A060089 






000640 


0480062C 


41C90008 


C08000DO 


1C021AC1 


95043008 


47808200 


D2AFC000 


40009680 






000660 


900647FO 


8206D2AF 


4000C000 


1BFF50FD 


00101817 


41000038 


0A0A98EC 


D00C07FE 






000680 


00033BC8 


00480AOA 


05804860 


B08050E7 


00309180 


90064780 


80189205 


701047FO 






0006A0 


801C92O6 


70104150 


A05818C6 


41D00020 


1CCC1AD5 


50D70014 


184D9505 


70104770 






O006C0 


804048DO 


900447FO 


80581B22 


8D200008 


41100001 


19128C20 


00084780 


809648D7 






0006E0 


0022482C 


B07A4BD0 


B0864740 


807A1BCC 


4810B07E 


IDC HAD 2 


89D00008 


41DCD001 






000700 


47F0808; 


4AD0B086 


4AD0B084 


06208920 


00081AD2 


410D0000 


00000000 


47F0809E 






000720 


58FOF008 


07FF0000 


00000000 


50070034 


003C004C 


001058F0 


003C004C 


58070034 






000740 


003C004C 


D2071024 


00201002 


00000000 


00000004 


00000000 


00000000 


00000000 






000760 


07E2E8E2 


D7D9C9D5 


E3000000 


00000000 


00000000 


00000000 


00000000 


00000000 




RECORDS 6 


TYPE 02 


- RLD 










RLD SIZE 236 










R-PTR 


P-PTR 


FL 


ADDR 


FL ADDR FL ADDR 


FL ADDR FL ADDR FL 


ADDR 






2 


1 


OC 


000010 


















14 


1 


24 


00002E 


















15 


1 


24 


00029A 


















1 


1 


0D 


0002B4 


OC 0002EC 














12 


1 


25 


000448 


24 000454 














3 


1 


24 


000478 


















13 


1 


24 


000482 


















3 


1 


24 


000490 


















12 


1 


25 


0004A2 


24 0004AA 














2 


2 


OD 


0004BC 


OD 0004C0 OD 0004C4 OD 0004C8 OD 0004CC OD 


0004DO 










OC 


0004D4 


















4 


2 


8C 


O004D8 


















5 


2 


8C 


0004DC 


















1 


2 


OD 


0004E0 


OC 0004E4 














2 


2 


OC 


0004F0 


















1 


2 


OD 


0004F8 


OD 0004FC OD 000500 OC 000504 










16 


2 


9C 


000508 


















17 


2 


9C 


00050C 


















18 


2 


9C 


000510 


















19 


2 


9C 


000514 


















20 


2 


9C 


0004E8 


















21 


2 


9C 


000518 


















22 


2 


9C 


00051C 


















23 


2 


OC 


000520 



























LISTING OF 


LOAD MODULE PL1LOAD 








PAGE 0004 


RECORD* 7 


TYPE OE - 


- RLD 








RLD SIZE 


188 










R-PTR P- 


-PTR 


FL 


ADDR 


FL ADDR 


FL ADDR FL ADDR 


FL 


ADDR 


FL ADDR 






24 


2 


OC 


000524 
















25 


2 


OC 


000528 
















26 


2 


OC 


00052C 
















2 


2 


09 


00053D 


09 000559 


09 00058D 09 0005CD 


OD 


0005F8 


OC 0005FC 






25 


2 


OC 


000600 
















2 


2 


08 


000605 
















26 


2 


OC 


000608 
















1 


2 


OC 


00060C 
















2 


2 


08 


000611 
















26 


2 


OC 


000614 
















1 


2 


OC 


000618 
















2 


2 


08 


00061D 
















26 


2 


OC 


000620 
















1 


2 


OC 


000624 
















2 


2 


08 


000629 
















26 


2 


OC 


00062C 
















1 


2 


OC 


000630 
















2 


2 


08 


000635 
















1 


8 


OC 


000718 
















10 


9 


8C 


000728 
















27 


26 


24 


000748 














******END 


OF LOAD MODULE LISTING 
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NUMERICAL 


MAP AND 


CROSS- 


REFERENCE LIST 


OF LOAD MODULE 


PL1LOAD 




PAGE 0001 




CONTROL SECTION 








ENTRY 










LMOD LOC 


NAME 


LENGTH 


TYPE 




LMOD LOC 


CSECT LOC 


NAME 






00 


PL1TC02 


4B6 


SD 














4B8 


PL1TC02A 


260 


SD 














718 


IHEMAIN 


04 


SD 














720 


IHENTRY 


OC 


SD 














730 


C 


04 


SD 














738 


B 


04 


SD 














740 


A 


04 


SD 














748 


IHESPRT 


38 


SD 












LMOD LOC 


CSECT LOC 


IN CSECT 




REFERS TO SYMBOL 


AT LMOD LOC 


CSECT LOC 


IN CSECT 




10 


10 


PL1TC02 






PL1TC02A 


4B8 


00 


PL1TC02A 




4D8 


20 


PL1TC02A 






I HE SAD A 






$UNRESOLVED 




4 DC 


24 


PL1TC02A 






IHESADB 






$ UNRESOLVED 




4E0 


28 


PL1TC02A 






PL1TC02 


00 


00 


PL1TC02 




4E4 


2C 


PL1TC02A 






PL1TC02 


00 


00 


PL1TC02 




4E8 


30 


PL1TC02A 






IHESAFA 






$UNRESOLVED 




4F8 


40 


PL1TC02A 






PL1TC02 


00 


00 


PL1TC02 




4FC 


44 


PL1TC02A 






PL1TC02 


00 


00 


PL1TC02 




500 


48 


PL1TC02A 






PL1TC02 


00 


00 


PL1TC02 




504 


4C 


PL1TC02A 






PL1TC02 


00 


00 


PL1TC02 




508 


50 


PL1TC02A 






IHELDOA 






$UNRESOLVED 




50C 


54 


PL1TC02A 






IHELDOB 






$ UNRESOLVED 




510 


58 


PL1TC02A 






IHEIOBT 






$UNRESOLVED 




514 


5C 


PL1TC02A 






IHEIOBC 






$ UNRESOLVED 




518 


60 


PL1TC02A 






IHESAFB 






$UNRESOLVED 




51C 


64 


PL1TC02A 






AA 






$ UNRESOLVED 




520 


68 


PL1TC02A 






C 


730 


00 


C 




524 


6C 


PL1TC02A 






B 


738 


00 


B 




528 


70 


PL1TC02A 






A 


740 


00 


A 




52C 


74 


PL1TC02A 






IHESPRT 


748 


00 


IHESPRT 




600 


148 


PL1TC02A 






A 


740 


00 


A 




608 


150 


PL1TC02A 






IHESPRT 


748 


00 


IHESPRT 




60C 


154 


PL1TC02A 






PL1TC02 


00 


00 


PL1TC02 




614 


15C 


PL1TC02A 






IHESPRT 


748 


00 


IHESPRT 




618 


160 


PL1TC02A 






PL1TC02 


00 


00 


PL1TC02- 




620 


168 


PL1TC02A 






IHESPRT 


748 


00 


IHESPRT 




624 


16C 


PL1TC02A 






PL1TC02 


00 


00 


PL1TC02 




62C 


174 


PL1TC02A 






IHESPRT 


748 


00 


IHESPRT 




630 


178 


PL1TC02A 






PL1TC02 


00 


00 


PL1TC02 




718 


00 


IHEMAIN 






PL1TC02 


00 


00 


PL1TC02 




728 


08 


IHENTRY 






IHESAPC 






$ UNRESOLVED 




LENGTH OF LOAD 


MODULE 780 




















NUMERICAL MAP AND CROSS-REFERENCE LIST OF LOAD MODULE PL1LOAD 



PSEUDO REGISTER 




VECTOR 


LOC 


NAME 


LENGTH 


00 




IHEQINV 


4 


04 




IHEQERR 


4 


08 




IHEQTIC 


4 


OC 




IHEQLWF 


4 


10 




IHEQSLA 


4 


14 




IHEQLW0 


4 


18 




PL1TC02B 


4 


1C 




PL1TC02C 


4 


20 




IHEQSPR 


4 



LENGTH OF PSEUDO REGISTERS 



Figure LIST-3. 
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AI 


.■PHABETICAL MAP OF 


LOAD MODULE PL1LOAD 


PAGE 0003 


CONTROL SECTION 








ENTRY 




NAME 


LMOD LOC 


LENGTH 


TYPE 


NAME LMOD LOC CSECT LOC CSECT NAME 




A 




7«0 


04 


SD 






B 




738 


04 


SD 






C 




730 


04 


SD 






IHEMAIN 




718 


01 


SD 






IHENTRY 




720 


0C 


SD 






IHESPRT 




748 


38 


SD 






PL1TC02 




00 


4B6 


SD 






PL1TC02A 




4B8 


260 


SD 






PSEUDO REGISTER 












NAME 


VECTOR LOC 


LENGTH 








IHEQERR 




04 


4 








IHEQINV 




00 


4 








IHEQLWF 




OC 


4 








IHEQLWO 




14 


4 








IHEQSLA 




10 


4 








IHEQSPR 




20 


4 








IHEQTIC 




08 


4 








PL1TC02B 




18 


4 








PL1TC02C 




1C 


4 















ALPHABETICAL CROSS- 


-REFERENCE LIST OF LOAD MODULE PL1LOAD 






PAGE 0004 


SYMBOL 


AT LMOD LOC 


CSECT LOC 


IN CSECT 


IS REFERRED TO BY LMOD LOC 


CSECT LOC 


IN CSECT 




A 


740 


00 




A 


528 


70 


PL1TC02A 




A 


740 


00 




A 


600 


148 


PL1TC02A 




AA 








$ UNRESOLVED 


51C 


64 


PL1TC02A 




B 


738 


00 




B 


524 


6C 


PL1TC02A 




C 


730 


00 




C 


520 


68 


PL1TC02A 




IHEIOBC 








$UNRESOLVED 


514 


5C 


PL1TC02A 




IHEIOBT 








$ UNRESOLVED 


510 


58 


PL1TC02A 




IHELDOA 








$UNRESOLVED 


508 


50 


PL1TC02A 




IHELDOB 








$UNRESOLVED 


50C 


54 


PL1TC02A 




IHESADA 








$UNRESOLVED 


4D8 


20 


PL1TC02A 




IHESADB 








$UNRESOLVED 


4 DC 


24 


PL1TC02A 




IHESAFA 








$UNRESOLVED 


4E8 


30 


PL1TC02A 




IHESAFB 








$UNRESOLVED 


518 


60 


PL1TC02A 




IHESAPC 








$UNRESOLVED 


728 


08 


IHENTRY 




IHESPRT 


748 


00 




IHESPRT 


52C 


74 


PL1TC02A 




IHESPRT 


748 


00 




IHESPRT 


608 


150 


PL1TC02A 




IHESPRT 


748 


00 




IHESPRT 


614 


15C 


PL1TC02A 




IHESPRT 


748 


00 




IHESPRT 


620 


168 


PL1TC02A 




IHESPRT 


748 


00 




IHESPRT 


62C 


174 


PL1TC02A 




PL1TC02 


00 


00 




PL1TC0 2 


4E0 


28 


PL1TC02A 




PL1TC02 


00 


00 




PL1TC02 


4E4 


2C 


PL1TC02A 




PL1TC02 


00 


00 




PL1TC0 2 


4F8 


40 


PL1TC02A 




PL1TC02 


00 


00 




PL1TC02 


4FC 


44 


PL1TC02A 




PL1TC02 


00 


00 




PL1TC02 


500 


48 


PL1TC02A 




PL1TC02 


00 


00 




PL1TC02 


504 


4C 


PL1TC02A 




PL1TC02 


00 


00 




PL1TC0 2 


60C 


154 


PL1TC02A 




PL1TC02 


00 


00 




PL1TC02 


618 


160 


PL1TC02A 




PL1TC02 


00 


00 




PL1TC0 2 


624 


16C 


PL1TC02A 




PL1TC02 


00 


00 




PL1TC02 


630 


178 


PL1TC02A 




PL1TC02 


00 


00 




PL1TC02 


718 


00 


IHEMAIN 




PL1TC02A 


4B8 


00 




PL1TC02A 


10 


10 


PL1TC02 




******END 


OF MAP AND CROSS-REFERENCE LISTING 











Figure LIST- 3. 
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o 

rt 



H 

s 
w 

H 

en 
•-3 



OBJECT MODULE LISTING 



TXT: 
ADDR=000020 ESDID= 0001 TEXT: 000002C4 00000028 00000294 

TXT: 
ADDR=000074 ESDID= 0001 TEXT: 00O000D8 

RLD RECORD: R PTR P PTR FLAGS ADDR R PTR P PTR FLAGS ADDR R PTR 

0002 0001 OC O0O0E8 0002 0001 OC 0000EC 0003 

000<t 0001 1C O0O0F4 0001 0001 OC 000020 0001 

0001 0001 OC 000028 

TXT: 
ADDR=000078 ESDID= 0001 TEXT: 800000CC 000000C8 800000DO OOOOOOEO 800000D4 

TXT: 
ADDR=0000F8 ESDID= 0001 TEXT: 00000000 00000000 00000110 00000210 

RLD RECORD: 



P PTR 


FLAGS 


ADDR 


0001 


OC 


0OOOF0 


0001 


OC 


000024 



R PTR 


P PTR 


FLAGS 


ADDR 


R PTR 


P PTR 


FLAGS 


ADDR 


R PTR 


P PTR 


FLAGS 


ADDR 


0001 


0001 


OC 


000074 


0001 


0001 


OC 


000078 


0001 


0001 


OC 


00007C 


0001 


0001 


OC 


000080 


0001 


0001 


OC 


000084 


0001 


0001 


OC 


000088 


0001 


0001 


OC 


000100 



















TXT: 
ADDR=000108 ESDID= 0001 TEXT: 00000266 0000026E 



ADDR R PTR 
000104 0001 



RLD 


RECORD : 


R PTR 
0001 


P PTR 
0001 


FLAGS 
OC 


END 


RECORD : 










ESD RECORD: 
ESDID TYPE 
0001 SD(OO) 


NAME 
EVAL 




ADDR 
000000 



P PTR 


FLAGS 


ADDR 


R PTR 


P PTR 


FLAGS 


ADDR 


0001 


OC 


000108 


0001 


0001 


OC 


00010C 



LENGTH=000002DE 



DATE 71.313/15.47.0! 



ID/LTH 
000000 



PAGE 0003 
SOLV0017 
SOLV0018 
SOLV0019 

SOLV0020 
SOLV0021 
SOLV0022 

SOLV0023 

SOLV0024 

SOLV0025 
EVAL0001 



TXT: 
ADDR=000000 ESDID= 0001 TEXT: 47F0F00C 07000000 C5E5C1D3 90ECD00C 184D98CD F0205040 D00450D0 400807FC 40404040 

020AOA02 06020C12 0622 



ESD RECORD: 








ESDID TYPE 


NAME 


ADDR 


ID/LTH 


0002 CM(05) 


EVAL 


000000 


000018 



TXT: 
ADDR=000088 ESDID= 0001 TEXT: 40800000 

ESD RECORD: 
ESDID TYPE NAME ADDR ID/LTH 
0003 ER(02) IBCOM# 000000 000000 



EVAL0002 
40404040 



EVAL0003 



EVAL0004 



EVAL0005 



Figure LIST-4. Sample LISTOBJ Output 




to 

(D 
H 
< 
H- 
O 
(D 

> 
CO 







LISTIDR FOR 


LOAD 


MODULE SAMPLE PAGE 0001 




CSECT 




YR/DAY 






IMASPZAP DATA 




SAMP1 




71/329 






FIX12345 




SAMP 2 




71/329 






LEVEL003 




SAMP 4 




71/329 






PATCH001 




SAMP 4 




71/329 






PATCH002 




SAMP 4 




71/329 






PATCH00 3 


THIS LOAD 


MODULE WAS PRODUCED BY LINKAGE EDITOR 


360SED521 AT LEVEL 21.01 ON DAY 329 OF YEAR 71. 


CSECT 


TRANSLATOR 




VR MD 






YR/DY 


SAMP1 


360SAS037 




21 00 






71/329 


SAMP 2 


360SAS037 




21 00 






71/329 


SAMP 3 


360SAS037 




21 00 






71/329 


SAMP 4 


360SAS037 




21 00 






71/329 


SAMP 5 


360SAS037 




21 00 






71/329 


CSECT 




YR/DAY 








USER DATA 


SAMP1 




71/329 








CHANGE LEVEL 01 


SAMP 2 




71/329 








VERSION 6 


SAMP 3 




71/329 








FIX LEVEL 2735 


SAMP 4 




71/329 








SORT SUBROUTINE 


SAMP 5 




71/329 








CARD SCANNING SUBROUTINE 





Figure LIST-5. Sample LISTIDR Output 



Examples 



//OBJLIST 


JOB 


//LISTSTEP 


EXEC 


//SYSPRINT 


DD 


//OBJLIB 


DD 


//OBJSDS 


DD 


//SYSIN 


DD 


LISTOBJ 





Example 1: Listing Several Object Modules 

In this example, IMBLIST is used to list all object modules contained in 
the data set named OBJMODS, three specific object modules from another 
data set called OBJMOD,, and finally all object modules in OBJMOD. 

MSGLEVEL=(1,1) 
PGM= IMBLIST 
SYSOUT=A 

DSN=OBJMODS , DISP=OLD 
DSN=OBJMOD=DISP=OLD 
* 

DDN=OBJSDS, 

TITLE=(' OBJECT MODULE LISTING OF OBJSDS', 20) 
LISTOBJ DDN=OBJLIB,MEMBER=(OBJl,OBJ2,OBJ3) , 

TITLE=(* OBJECT MODULE LISTING OF OBJ1 OBJ2 OBJ3),20) 
LISTOBJ DDN=OBJLIB, 

TITLE=( , OBJ MOD LISTING OF ALL MODS IN OBJLIB 1 , 20) 
/* 

SYSPRINT DD Statement 

defines the message data set. This statement must be included; if 
it is omitted, IMBLIST will produce no output. 

OBJLIB and OBJSDS DD Statements 

define input data sets that contain object modules. 

SYSIN DD Statement 

defines the data set in the input stream containing IMBLIST control 
statements. 

LISTOBJ Control statement #1 

instructs IMBLIST to format the data set defined by the OBJSDS DD 
statement, treating them as a single continuous object module. It 
also specifies a title for each page of output, to be indented 20 
characters from the left margin. 

LISTOBJ Control Statement #2 

instructs IMBLIST to format three members of the partitioned data 
set defined by the OBJLIB DD statement. It also specifies a title 
for each page of output, to be indented 20 characters from the left 
margin. 

LISTOBJ Control Statement #3 

instructs IMBLIST to format the entire data set defined by the 
OBJLIB DD statement,, treating it as a sequential data set. It also 
specifies a title for each page of output, to be indented 20 
characters from the left margin. 
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//LOADLIST 


JOB 


//LISTSTEP 


EXEC 


//SYSPRINT 


DD 


//SYS LIB 


DD 


//LOADLIB 


DD 


//SYSIN 


DD 


LISTLOAD 





Example 2: Using the LISTLOAD Control Statement 

In this example, IMBLIST is used to produced formatted listings of 
several load modules. 

MSGLEVEL=(1,1) 

PGM= IMBLIST 

SYSOUT=A 

DSNAME=SYS1. LINKLIB, DISP=OLD 

DSNAME=LOADMOD, DISP=OLD 

* 

OUTPUT=MODLIST, DDN=LOADLIB, 
MEMBER=TESTMOD, 

TITLE=('LOAD MODULE LISTING OF TESTMOD*,20) 
LISTLOAD OUTPUT=XREF , DDN=LOADLIB, 
MEMBER= (MODl,MOD2 ,MOD3) , 

TITLE=(*XREF LISTINGS OF MODI MOD2 AND MOD3*,20) 
LISTLOAD TITLE=('XREF & LD MOD LSTNG - ALL MOD IN LINKLIB* ,20) 
/* 

In this example: 

SYSPRINT DD Statement 

defines the message data set. 

SYSLIB DD Statement 

defines an input data set, SYS1. LINKLIB, that contains load modules 
to be formatted. 

LOADLIB DD Statement 

defines a second input data set. 

SYSIN DD Statement 

defines the data set (in the input stream) containing the IMBLIST 
control statements. 

LISTLOAD Control Statement #1 

instructs IMBLIST to format the control and text records, including 
the external symbol dictionary and relocation dictionary records, of 
the load module TESTMOD in the data set defined by the LOADLIB DD 
statement. It also specifies a title for each page of output, to be 
indented 20 characters from the left margin. 

LISTLOAD Control Statement #2 

instructs IMBLIST to produce a module map and cross=reference 
listing of the load modules MODI, MOD2, and MOD3 in the data set 
defined by the LOADLIB DD statement. It also specifies a title for 
each page of output, to be indented 20 characters from the left 
margin. 
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//IDRLIST 


JOB 


//LISTSTEP 


EXEC 


//SYS PRINT 


DD 


//SYS LIB 


DD 


//LOADLIB 


DD 


//SYS IN 


DD 


LISTIDR 


titl: 


LISTIDR 


OUTP1 



LISTLOAD Control Statement #3 

instructs IMBLIST to produce a formatted listing of the load module 
and its map and cross-reference listing. Because no DDN= parameter 
is included, the input data set is assumed to be the one defined by 
the SYSLIB DD statement. Because no MEMBER= parameter is specified, 
all load modules in the data set will be processed. This control 
statement also specifies a title for each page of output, to be 
indented 20 characters from the left margin. 

Example 3: Using the LISTIDR Control Statement 

In this example, IMBLIST is used to list the CSECT identification 
records in several load modules. 

MSGLEVEL=(1,1) 

PGM= IMBLIST 

SYSOUT=A 

DSN=SYS1. LINKLIB, DISP=OLD 

DSN=LOADMODS , DISP=OLD 

* 

TITLE=('IDR LISTINGS OF ALL MODS IN LINKLIB 1 , 20) 
OUTPUT= IDENT , DDN=LO ADLIB , MEMBER=TESTMOD 
TITLE=(* LISTING OF MODIFICATIONS TO TESTMOD', 20) 
LISTIDR OUTPUT=ALL,DDN=LOADLIB,MEMBER=(MODl,MOD2,MOD3) , 
TITLE=( f IDR LISTINGS OF MODI MOD2 MOD3*,20) 
/* 

In this example: 

SYS PRINT DD Statement 

defines the message data set. 

SYSLIB DD Statement 

defines the input data set SYS1. LINKLIB, which contains load modules 
to be processed. 

LOADLIB DD Statement 

defines a second input data set. 

SYS IN DD Statement 

defines the data set (in the input stream) containing the IMBLIST 
control statements - 

LISTIDR Control Statement #1 

instructs IMBLIST to list all CSECT identification records for all 
modules in SYS1. LINKLIB (this is the default data set since no DDN= 
parameter was included) . It also specifies a title for each page of 
output, to be indented 20 characters from the left margin. 

LISTIDR Control Statement #2 

instructs IMBLIST to list CSECT identification records that contain 
IMASPZAP or user-supplied data for load module TESTMOD. TESTMOD is a 
member of the data set defined by the LOADLIB DD statement. This 
control statement also specifies a title for each page of output, to 
be indented 20 characters from the left margin. 
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LISTIDR Control Statment #3 

instructs IMBLIST to list all CSECT identification records for load 
modules MOD1,MOD2, and M0D3. These are members in the data set 
defined by the LOADLIB DD statement. This control statement also 
specifies a title for each page of output, to be indented 20 
characters from the left margin. 

Example 4: Verifying an Object Deck 

In this example, IMBLIST is used to format and list an object module 
included in the input stream. 



//LSTOBJDK 


JOB 




MSGLEVEL=(1,1) 


// 


EXEC 




PGM= IMBLIST 


//SYS PRINT 


DD 




SYSOUT=A 


//OBJDECK 


DD 




* 


object 


deck 






//SYSIN 


DD 




* 


LISTOBJ 




DDN= 


=OBJDECK, 



TITLE=(* OBJECT DECK LISTING FOR MYJOB*,25) 
/* 



SYS PRINT DD Statement 

defines the message data set. 

OBJDECK DD Statement 

defines the input data set, which follows immediately. In this case 
the input data set is an object deck. 

SYSIN DD Statement 

defines the data set containing IMBLIST control statements, which 
follows immediately. 

LISTOBJ Control Statement 

instructs IMBLIST to format the data set defined by the IBJDECK DD 
statement. It also specifies a title for each page of output, to be 
indented 20 characters from the left margin. 
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//LSTLDOBJ 


JOB 


// 


EXEC 


//SYS PRINT 


DD 


//OBJMOD 


DD 


//LOADMOD1 


DD 


//LOADMOD2 


DD 


//SYS IN 


DD 


LISTOBJ 





Example 5: Combining LISTOBJ, LISTLOAD, and LISTIDR 

An unsuccessful attempt has been made to link edit an object module with 
two load modules to produce one large load module. This example shows 
how to use IMBLIST to verify all three modules. 

MSGLEVEL=(1,1) 
PGM= IMBLIST 
SYSOUT=A 

DSN=MYMOD, DISP=OLD 
DSN=YOURMOD, DISP=OLD 
DSN=HISMOD, DISP=OLD 
* 
DDN=OBJMOD, 
TITLE= (* OBJECT LISTING FOR MYMOD , f 20) 
LISTLOAD DDN=LOADMODl,OUTPUT=BOTH, 

TITLE=C LISTING FOR YOURMOD',25) 
LISTIDR DDN=LOADMODl,OUTPUT=ALL, 

TITLE= ( ' IDRS FOR YOURMOD * , 25) 
LISTLOAD DDN=LOADMOD2 , OUTPUT=BOTH, 

TITLE=C LISTING FOR HISMOD f ,25) 
LISTIDR DDN=LOADMOD2,OUTPUT=ALL, 
TITLE=('IDRS FOR HISMOD',25) 
/* 

SYS PRINT DD Statement 

defines the message data set. 
OBJMOD DD Statement 

defines an input load module data set. 
LOADMOD1 and LOADMOD2 DD Statements 

define input load module data sets. 

SYS IN DD statement 

defines the data set containing IMBLIST control 
statements, which follows immediately. 

LISTOBJ Control Statement 

instructs IMBLIST to format the data set defined by the OBJMOD DD 
statement. It^also specifies a title for each page of output, to be 
indented 20 characters from the left margin. 

LISTLOAD Control Statement #1 

instructs IMBLIST to format all records associated with the data set 
defined by the LOADMOD1 DD statement. It also specifies a title for 
each page of output, to be indented 25 characters from the left 
margin. 

LISTIDR Control Statement #1 

instructs IMBLIST to list all CSECT identification records 
associated with the data set defined by the LOADMOD1 DD statement. 
It also specifies a title for each page of output, to be indented 25 
characters from the left margin. 
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LISTLOAD Control Statement #2 

instructs IMBLIST to format all records associated with the data set 
defined by the LOADMOD2 DD statement. It also specifies a title for 
each page of output, to be indented 25 characters from the left 
margin. 
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Chapter 6: IMBMDMAP 

Maps load modules. 



MDMAP 
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Introduction 



IMBMDMAP, the Load Module Mapping service aid program, operates under 
the control of IBM Operating System/ 360, and provides the facility for 
mapping: 

• A system's nucleus; 

• The load modules included in an MVT link pack area or an MFT 
resident reenterable load module area; or 

• Load modules previously link edited into a partitioned data set. 

In determining the cause of problems in the execution of system 
component programs or complex user problem programs, the load module 
maps produced by IMBMDMAP, used in conjunction with main storage dumps, 
constitute powerful debugging aids. They enable the user to readily 
locate and identify individual control sections and their entry points, 
and to verify load module attributes and aliases. 
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Characteristics of the Load Module Map 



A load module map contains edited information regarding the control 
sections, entry points, aliases, external references, attributes, type 
codes, overlay segments and hierarchy designations for each load module 
for which a map is requested. 

Load Module and Nucleus Maps 

A map of load modules from a partitioned data set (PDS) or a map of a 
nucleus consists of external symbol dictionary (ESD) and relocatable 
load dictionary (RLD) items, sorted first to numeric order by location, 
and then to alphabetic order by name. ESD and RLD items are discussed 
more fully under their respective headings in this chapter. 

Link Pack Area Maps 

A map of an MVT link pack area (LPA) contains contents directory entries 
(CDEs); that of an MFT resident reenterable load module area (analogous 
to the MVT link pack area) contains loaded program request block (LPRB) 
entries. The nature of these entries is discussed under the headings 
"MVT Link Pack Area" and "MFT Resident Reenterable Load Module Area" in 
this chapter. 

In a map of either area type, the entries are sorted numerically, 
then alphabetically; and the length, entry points, and relative 
addresses of each module in the area are listed. 

Specialized Maps 

The user can request a map containing only ESD items in numeric sequence 
when executing IMBMDMAP. Or, an address relocation value may be 
specified to the program; that value will be assigned as the map's base 
address, and the result will be the printing of an absolute main storage 
location for each record, providing an added storage dump debugging aid. 
Or, the user may request a map that includes a series of "snapshot" 
dumps, taken at strategic points in time during IMBMDMAP' s execution, 
and useful in determining the cause of certain load module structural 
problems — including those which might arise during execution of 
IMBMDMAP. 
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Input to MDMAP 



Input to IMBMDMAP may be a load module, a link pack area (MVT) , a 
resident reenterable load module area (MFT), or any OS/360 nucleus. The 
following sections describe the contents and function of each type of 
input. 

Load Modules 

A load module is composed of all the edited modules (object, load, or an 
intermix of both types) that are input to the linkage editor for a given 
linkage. In addition to text items, a load module contains composite ESD 
and RLD entries. Any load module is both relocatble and executable. 

The Modular Concept 

Every program is designed to fulfull a particular purpose. In achieving 
that purpose, a program can be divided into logical functional units. 
Each of these units, defined as a section of coding that performs a 
specific task or several related functions, can be termed a module. 

Control Sections 

A module contains one or more control sections. A control section, or 
CSECT, is a unit of instructions and data that, within itself, is an 
entity. All elements of a control section (CSECT) are loaded and 
executed in a constant relationship to one another. A CSECT is, 
therefore, the smallest separately relocatable unit of a program. 

Object Modules 

Each module within a program can be separately assembled or compiled by a 
language translator. During this processing, references between the 
module's component control sections are unresolved. Object modules, the 
output of the language translator, consist of control dictionaries and 
text. Control dictionaries contain the information necessary to resolve 
cross-references between control sections and modules. A module's text 
area contains its instructions and data. Figure MDMAP- 1 illustrates the 
structure of an object module. An object module is relocatable, but not 
executable. 
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External Symbol Dictionary 



CSECT 1 



CSECT 2 



Text 



CSECT 3 



Relocatable Load Dictionary 



Figure MDMAP-1. Structure of an Object Module 

External Symbol Dictionaries 

An external symbol dictionary (ESD) entry identifies and defines the 
position of the external symbols contained, or referred to, in a module. 
Each entry is classified as either an external name or an external 
reference. 

External Names 

An external name is a defined value within the module, bearing a name 
that can be referred to by any control section or by any separately 
assembled or compiled module. There are four types of external names: 

a. Control Section Name: The symbolic name of a control section. 
The ESD entry specifies the name, the assembled origin, and the 
length of a control section. The defined value of the symbol is 
the address of the first byte of the control section. 

b. Entry Name: A name within a control section defining a point in 
the coding unit where processing may begin, or "enter." The ESD 
entry specifies the assembled address of the name and 
identifies the control section to which it belongs. 

c. Blank or Named Common Area: A control section used to reserve a 
main storage area (containing no data or instructions) for 
CSECTs supplied by other modules, or as a center for 
communication between modules within a program. The ESD entry 
specifies the name and length of a named common area. The name 
field of a blank common area contains blanks. 

d. Private Code: An unnamed control section. The ESD entry 
specifies the assembled address and assigned length of the 
area. The name field contains blanks. Since it has no name, a 
private code area cannot be referred to by any other control 
section. 
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External References 

An external reference is a symbol referred to in a given module, but 
defined as an external name in another module. The ESD dictionary for 
the current module specifies the name only. 

Relocatable Load Dictionaries 

Relocatable load dictionaries (RLDs) contain information about address 
constants within the module. Each RLD entry identifies an address 
constant by: 

• Indicating its location within the module, and 

• Identifying the ESD symbol whose contents are used in determining 
the value of the address constant. 

For a detailed discussion of ESD and RLD items, see the publication, IBM 
System/36 Operating System: Linkage Editor and Loader, GC28-6538. 

Text 

A text item includes the addresses of the instructions and data in a 
module, and indicates the ESD entry defining the CSECT in which the 
subject text is contained. 

Linkage Editor Output 

The linkage editor's output, a completed load module, is placed in a 
partitioned data set (SYSLMOD library) as a named member. In addition to 
its member name, the load module may carry as many as sixteen other 
names, or aliases. Under MFT it can contain up to 524,288 bytes; MVT 
allows larger modules. Figure MDMAP-2 illustrates the relationship of 
input to output of the linkage process. 

In linking the input modules, the linkage editor resolves all 
references between control sections, just as if they had been assembled 
as a single module. The output load module contains the information 
necessary to load and relocate the module in main storage, and to 
compute the relocated value of location-dependent address constants. 
When it places the load module in the output module library, the linkage 
editor stores the module's member name, aliases, and attribute control 
information in the library's PDS directory. 




Chapter 6: IMBMDMAP 133 



Input 



Output 



Object Module and/or Load Module 



ESD 



TXT 



RLD 



Load Module 



r^ 



ESD 



TXT 



RLD 




ESD 



TXT 



RLD 



Figure MDMAP-2 . Creation of a Load Module by the Linkage Editor 
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Load Module Attributes 

Each load module has specific characteristics, or attributes, which are 
used by the control program when the module is loaded for execution. 
Some of these attributes are programmer-specified; others are assigned 
by the linkage editor as a result of information obtained during its 
processing of the module. 

Programmer-Assigned Attributes 

Attributes that can be assigned to a load module by the programmer, and 
the characteristics assumed by the load module under each assignment, 
are: 



ASSIGNED ATTRIBUTE 



LOAD MODULE CHARACTERISTICS 



Reenterable 



Serially Reusable 



Executable by more than one task at a time; 
cannot be modified by any other load module 
during execution; cannot modify itself unless 
disabling techniques (such as the ENQ macro 
instruction, the test and set (TS) instruction,, 
etc . ) are used to prevent another routine from 
using this load module. 

Executable by only one task at a time; will 
initialize itself and/or will restore any 
altered instructions or data before a new task 
takes control. 



Refreshable 



Scatter Format 



Hierarchy Format 



Not Editable 



Only Loadable 



Cannot be modified by itself or by any other 
load module during execution, since it must be 
capable of being replaced by a new copy during 
execution without changing the results of 
proecessing. 

Is suitable for either block loading (placement 
in main storage in one contiguous block of 
space) ; or scatter loading (possible placement 
in main storage, by control section, in 
non-contiguous areas) , thus taking better 
advantage of available storage space. 

Suitable for either block or scatter loading 
into either hierarchy or hierarchy 1, as 
specified to the linkage editor when hierarchy 
support is included in the system. 

Cannot be reprocessed by the linkage editor; 
that is, cannot be link edited again into a 
larger load module. 

Can be brought into main storage only by use of 
the LOAD macro instruction. 



Downward Compatible 



Overlay 



Can be reprocessed by either level E or level F 
of the linkage editor. 

Structured as directed by linkage editor OVERLAY 
statements . 



Test 



Applies only to Assembler Language programs that 
are to be tested; causes inclusion of the test 
symbol dictionary. 
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Linkage Editor- As signed Attributes 



Linkage editor-assigned attributes, and the load module characteristics 
that result, are: 



ASSIGNED ATTRIBUTE 
Block Format 
Not Executable 



LOAD MODULE CHARACTERISTICS 

Suitable for block loading only. 

Assigned when errors that would prevent 
successful execution of the load module are 
detected during linkage editing. 



Load Modules with Overlay Characteristics 

When a load module contains overlay characteristics, the linkage editor 
structures the module somewhat differently, incorporating segment and 
entry tables (SEGTABs and ENTABs) into the text. 

The single segment table created by the linkage editor for an 
overlay program structure is used to keep track of: 

• the relationship of the segments in the program; 

• which segments are in main storage, or in the process of being 
loaded; and 

• other control information. 

Entry tables are linkage editor-generated for control program use in 
determining the segment to be loaded in response to a branch instruction 
or one of the macro instructions used to transfer control between 
overlay segments- Figure MDMAP-3 illustrates the structure of a load 
module containing overlay characteristics . 




ESD 



SEGTAB 



TEXT 



ENTAB 






TEXT 

ENTAB 

TEXT 



RID 



Figure MDMAP-3. Structure of a Load Module With Overlay 
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MVT Link Pack Area 

The link pack area in MVT is a required feature of the system. It 
resides in upper main storage and contains reenterable routines from the 
linkage and supervisor call libraries (SYS1.LINKLIB and SYSl.SVCLIB) . 

MVT link pack area routines are available to all tasks requiring 
them, and thus need not be separately loaded into the various regions of 
main storage. Figure MDMAP- 4 shows the arrangement of the library 
routines in an MVT link pack area. The types 3 and 4 SVC routines 
operate in the Supervisor state; the others generally operate in the 
same state as the calling routine. 

In MVT systems, the link pack area control queue (LPACQ) is composed 
of contents directory entries (CDEs), which are linked together. Each 
CDE on the LPACQ describes a routine resident in the LPA, giving the 
name, entry point and other attributes. 

For a more detailed explanation of the link pack area control queue 
and associated control blocks, consult the publications, MVT Supervisor, 
3Y28-6659, and System Control Blocks, GC28-6628. 
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Figure MDMAP- 4 . Upper Main Storage After IPL of an MVT System 

MFT Resident Reenterable Load Module Area 

Under MFT, the resident reenterable load module area is a SYSGEN option. 
If the option is selected, the access method routines from SYSl.SVCLIB 
and the routines from SYSl.LINKLIB which are to be made resident are 
loaded during system initialization. Figure MDMAP- 5 shows the relative 
location of these routines in main storage. 
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Figure MDMAP-5 . Lower Main Storage Organization in MFT 

In MFT systems with the resident routine option selected, a queue of 
request blocks (RBs), called the reenterable load module queue, is 
maintained. Each request block describes a resident routine and can be 
either a loaded program request block (LPRB) or a loaded request block 
(LRB). For a more detailed description of the resident reenterable load 
module area and the associated control blocks, consult the publications 
Control Program with MFT, GY27-7128, and System Control Blocks, 
3C28-6628. 

For ease of reference, the term "link pack area" will her after be 
used to denote either the MVT link pack area or the MFT resident 
reenterable load module area. 

Nucleus 

The nucleus, a member of the partitioned data set SYS1. NUCLEUS, is the 
resident portion of a control program. It is loaded into the fixed area 
of main storage at IPL time. The nucleus contains: 

• all task supervision routines, except the nonresident types 3 and 4 
SVC routines; 

• the data management I/O supervisor and BLDL routine; 

• the resident recovery management routines; and 

• small transient areas into which certain nonresident SVC routines 
and I/O error handling routines, all resident in SYSl.SVCLIB, are 
loaded as needed. 
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Figure MDMAP-6 shows the layout of a nucleus after IPL. All control 
programs assign the nucleus to lower main storage. 
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Figure MDMAP-6. A Nucleus after IPL 




MDMAP 



Chapter 6: IMBMDMAP 139 



Executing MDMAP 



IMBMDMAP runs in the problem program mode under any of the OS/360 
control programs. 

IMBMDMAP can be executed by use of the job control statements 
described in the next section. Main storage requirements for executing 
IMBMDMAP are variable, depending upon the number of ESD and RLD items 
present in the module being mapped. The average execution requires about 
3 5K; an extremely complex module might require 7 OK. 

JCL Statements 

The statements required for executing IMBMDMAP are shown in Figure 
MDMAP- 7. 



Statement 



Usage 



JOB Statement 



This statement initiates the JOB. 



EXEC Statement 



This statement specifies the program name: 



PGM=IMBMDMAP 



The statement may, in addition, contain from one to four parameters, randomly coded in any combination, to designate 
particular specialization of a map's format. These parameters are: 

[,PARM='LINKPACK, BASIC, DEBUG, hhhhhh'] 

These will be discussed individually under "EXEC Statement Parameters." 



SYSPRINTDD Statement 



This statement defines a sequential message data set, such as SYSOUT. The device defined for SYSPRINT may be a system 
out-put class, system output device, magnetic tape volume, or direct access volume. 



//ddname DD Statement 



This statement defines the load module to be mapped. One such statement must be supplied for each load module for which 
a map is to be produced. The statement's format is: 

[//ddname DD DSN=YYY(ZZZ),DISP=SHr] 

in which //ddname is any unique ddname. 

YYY is the dsname of the partitioned data set in which the load module to be mapped resides; 

e.g., SYS1. NUCLEUS. 

ZZZ is the name or alias of the member load module — resident in the YYY data set — to 

be mapped. For example, 

DSN=SYS 1. NUCLEUS (IEANUC01) 

would accomplish mapping of the nucleus. IEANUC01 is the name of a load module contained 
in the data set called SYS1 .NUCLEUS. 



//SNAPDUMP DD 
Statement 



This statement defines a sequential output data set, to be used as output for the SNAP dumps taken as a result of the DEBUG 
parameter (discussed under "EXEC Statement Parameters" in this section). This DD statement is required only if the DEBUG 
parameter is specified on the EXEC statement. The device specified for SNAPDUMP may be a system output class or any 
system output device. 



//SYSABEND DD 
Statement or 
//SYSUDUMP DD 
Statement 



These statements define a sequential output data set, to be used as output for the ABEND dump issued by IMBMDMAP as a 
result of the DEBUG parameter (discussed under "EXEC Statement Parameters" in this section). One of these statements is 
required only if the DEBUG parameter is specified on the EXEC statement. The device specified for either SYSABEND or 
SYSUDUMP may be a system output class or any system output device. 



Figure MDMAP-7. IMBMDMAP Execution JCL 

EXEC Statements Parameters 

The parameters associated with IMBMDMAP' s EXEC statement are: 
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PARM= • LINKPACK ' 



indicates that a map of the link pack area of main storage under an 
MVT or MFT environment is to be produced. To obtain a complete map 
of all LPA modules (that is, to pick up the resident SVC routines), 
the nucleus currently resident in main storage must also be mapped. 
The user must, therefore, include in the jobstream a DD statement 
for the nucleus currently in core when requesting a link pack area 
map. 

PARM=* BASIC 

specifies that the resultant map is to contain only 
numerically-ordered external symbol dictionary items. Neither the 
alphabetic ESD nor either of the RLD listings is produced. The 
LINKPACK BASIC map will contain only numeric CDE or LPRB items. 

PARM='hhhhhh' 

where hhhhhh is a hexadecimal address of from one to six characters, 
and represents a relocation, or base, address. This parameter causes 
the program to add this value to the relative address of each mapped 
item, thus providing an absolute main storage address for the output 
listing. This does not apply to mapping a nucleus, which already has 
relocated addresses. 

PARM= * DEBUG ' 

provides for up to seven "snapshots" of main storage, taken at 
strategic intervals during execution of IMBMDMAP. These dumps are 
useful in the debugging of module construction problems, including 
any which may arise during the running of IMBMDMAP. The content of 
each dump, and the interval at which it is taken, are described in 
Figure MDMAP-8. 



MDMAP 



DUMP NUMBER 


CONTENT 


EXECUTION INTERVAL WHEN TAKEN 


1 


ESD entries 


After read 




RLD entries 


After read and first sorting pass 


2 


TRANSLATE table 


After read (nucleus only) 




SCATTER table 


After read (nucleus only) 


3 


IPLTABLE 


Simulation of IPL conditions to ensure 
accuracy of map (nucleus only) 


4 


TRANSLATE Table 


After read 




SCATTER Table 


After read or after IPL 
relocation (nucleus only) 


5 


ESD entries 


After relocation (scatter loading 




RLD entries 


After second sorting pass 


6 


ESD entries 


After EXEC parameter relocation 
if specified 




RLD entries 


After EXEC parameter relocation 
if specified 


7 


CDE Table or 


If MVT link pack area is being mapped 




LPRB Table 


If MFT link pack area is being mapped 



Figure MDMAP-8. Snap Dumps Taken When the DEBUG Parameter Is Used 
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Of course, the production of certain of these dumps depends upon the 
nature of the area being mapped. For example, maps 2, 3, and 4 would not 
be provided if the modules in the nucleus were not being mapped. 

The jobstream must include a SNAPDUMP DD statement, defining a 
sequential message data set, for output of these dumps. 

Additionally, the DEBUG parameter produces: 

• a hexadecimal dump of each mapped module, the text portion of which 
may be truncated; 

• a dump of each involved PDS directory; and: 

• an ABEND dump, if a SYSABEND or SYSUDUMP DD statement has been 
provided, since IMBMDMAP terminates with a user 100 ABEND code. The 
SYSABEND statement provides the user with a more complete main 
storage dump than the SYSUDUMP statement. 
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Output Formats 



The printed output of IMBMDMAP is a formatted listing, giving the user 
detailed information about the CSECTs contained in each mapped load 
module. The "regulation" map — that is, one not limited or expanded 
through the use of parameters — provides this information in four 
sections. 

Numerical ESD Listing 

A map, ordered by main storage location, of: 

• all attributes assigned to a given load module, 

• all aliases assigned to the load module, 

• the module's primary entry point, 

• all CSECTs and entry points within the load module, and 

• all external references within the load module. 

CSECTs are listed to the left of a page; entry points, in two sets of 
columns, in the center; and external references to the right. Each CSECT 
is identified, in addition to name, address, and length, by one of six 
type codes: 

• CM (Common) indicates that the name defines a common area, named or 
unnamed. A constant, $BLK COM, is assigned to the name field if the 
area is unnamed. For example, 

CSECT 



NAME 
$BLK COM 



ADDRESS 
080090 



LENGTH 
000008 



TYPE 
CM 



• LR (Label Reference) indicates that the name defines a label, or 
symbol, within a control section. 

• PC (Private Code) indicates that the name defines the beginning of 
an unnamed control section. A constant, $PRIVATE, is assigned to the 
name field of such CSECTs on the listing. 

• PD (Private Code Marked Delete) indicates that this is an ENTAB or a 
SEGTAB. The code is used with modules having the overlay attribute. 

• PR (Pseudo Register) defines an area external to the load module, 
but referred to within it, for which storage is allocated at the 
time the load module is executed. 

• SD (Section Definition) indicates that the CSECT name defines the 
beginning of a named control section. 

Two additional mutually exclusive CSECT definitions exist. When 
applicable, they appear immediately to the right of the type column on 
the listing. They are: 
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SEG (Segment), a column heading under which appears the overlay 
segment in which a CSECT is contained. This is used with modules 
that have the overlay attribute. An example of the use of this 
identification is: 

CSECT 



NAME 


ADDRESS 


LENGTH 


TYPE 


SEl 


$SEGTAB 


010A20 


00004C 


PD 


01 


IEKAA01 


010A70 


000114 


SD 


01 


IEKXRS 


017B78 


0000E8 


SD 


02 



IEKVFP 


0225C8 


000A60 


SD 


0D 


IEKP25 


023028 


000244 


CM 


0D 



HIERARCHY1, a constant printed beside the TYPE when a load module 
has been link edited with hierarchy designation, and the CSECT has 
been marked for loading into Hierarchy 1. Hierarchy loading is 
indicated by the absence of such a notation. An example of the use 
of this identification is: 

CSECT 



NAME 


ADDRESS 


LENGTH 


TYPI 


p 


IMBTST05 


000000 


oooooc 


SD 




IMBTST06 


000010 


oooooc 


SD 




IMBTST07 


000020 


OOOOOC 


SD 


HIERARCHY1 


IMBTST08 


000030 


OOOOOC 


SD 


HIERARCHYl 



Numerical RLD Listing 

A map, in order by main storage location, of the RLD items within a load 
module. Column headings on the listing are: 



LOCATION 



REL ADR IN CSECT REFERS TO 



IN CSECT 



This line of column headings may be interpreted as: 

"In this location (column 1) ... at this relative address (column 
2) . . . in this control section (column 3) . . . there is a reference 
to the area identified by this name (column 4) . . . which resides in 
this control section (column 5) . 

Alphabetic ESD Listing 

The same as the numerical ESD listing but sorted to order by ESD name 
rather than by location. 
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Alphabetic RLD Listing 

The same as the numerical RLD listing but sorted to order by reference 
name (column 4) rather than by location. 

A map of a link pack area is formatted to give the following 
information, appearing in two sets of columns on a listing page: 

LOCATION LENGTH NAME EP ADR EP REL ADR 

where EP ADR is entry point address, and EP REL ADR is entry point 
relative address. 



MDMAP 
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MDMAP Examples 



The following examples and figures illustrate the job control language 
statements needed to produce sample configurations of IMBMDMAP maps; 
excerpts from the resulting maps show the headings and data for the 
edited portions of the information. 

Example 1: Mapping an MVT Link Pack Area and Nucleus 

This example shows the statements for a map of an MVT nucleus and 
link pack area. Figure MDMAP-9 shows the resulting map. 

MSGLEVEL=<1,1> 

PGM= IMBMDMAP, PARM= " LINKPACK ' 

DSN=SYS1. NUCLEUS ( IEANUC 01), DISP=SHR 

SYSOUT=A 



//JOB1 


JOB 


//STEP1 


EXEC 


//DD1 


DD 


//SYSPRINT 


DD 


/* 
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n 

ft 

tt> 



H 

3 

a 



*v 







MVT LINK PACK MAP 



OATE=70.091 ALPHABETICALLY BY NAfcE 



LOCATION 


LENGTH 


NAME 


EP ADP 


EP REL A 


07F500 


000068 


IEEPALTR 


07F50C 


000000 


07F048 


000068 


IEEPPRES 


07F04E 


OCOOOC 


07F81C 


000058 


IEEVMNTl 


07F81C 


000000 


07F638 


0C01C8 


IEEVWILK 


07F636 


COCOOO 


07F4F0 


000088 


IEFSD102 


07F4FC 


ocoooo 


07F0B0 


000440 


IEFS0263 


C7F21C 


C00160 


07D2B8 


000400 


IGC0001I 


07D2B8 


ocoooo 


07E0B0 


000068 


I_££_019AA 


07E0BC 
07DB7C 


ooooqo, 


070B7p^ 






ooppr 








"^07007 € 





LOCATION 


LENGTH 


NAME 


EP ADR 


EP REL A 


07EE18 


000060 


IEEPOISC 


07EE18 


COOOOC 


C7F868 


000040 


IEEPRTN 


07F868 


OCOOOO 


07F8A8 


000058 


IEEVSTRT 


07F8A8 


GCOOCO 


07F578 


000058 


IEFC.INTZ 


07F578 


COOCOO 


07EFA0 


000060 


IEFSD105 


07EFAC 


OOOOCO 


07EE78 


000128 


IEFVME 


07EE78 


000000 


07CC00 


000400 


IGC0005E 


07CCOO 


OOOOCO 


C7ED48 


000068 


IGG019AB 


07E048 


000000 


^0.70968 


OOOOCO 


IGGC19AD 


070968 — 


— *-«moc 



Figure MDMAP-9. Excerpts From the Map Resulting From Example 1 




Example 2: Mapping the ESDs of Load Module, Using the Relocation Option 

The statements in this example will produce a basic map of a load 
module in SYS1.LINKLIB with relocation of the relative addresses to base 
address 10A20. Only the numerically arranged ESD entries are produced. 
See Figure MDMAP-10 also. 

MSGLEVEL=(1,1) 

PGM=IMBMDMAP,PARM=* BASIC, 10A20 ' 
DSN=SYSl. LINKLIB ( IEFAS061) , DISP=SHR 
SYSOUT=A 



//JOB3 


JOB 


//MAPMOD 


EXEC 


//DD3 


DD 


//SYSPRINT 


DD 


/* 
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LOAD MODULE MAP VERSION LEVFL C.19C 
IMBMDMAP - SYSl.NUCLEUSI IEANUC01) 
ATTRIBUTES - DC ,SCTR 
NAKF - IEANUC01 ALIASES - NONE 
CSECT 
NAME ADDRESS LENGTH TYPE 



IEAAIHOO OOOOCO 0C5802 



SD 



CATE=70.091 NUMERICALLY BY ESD ITEM 





ENTRY 






ENTRY 




EXT REF 


NAME 


ADDRESS 


REL ADP 


NAME 


ADDRESS 


REL ADR 


NAME 
CCHPTTA8 


IEAHPTCB 


000180 


CCC18C 


IEAPPTCB 


00C180 


0C0180 




IEAHEAO 


C0018C 


0CC180 


IORGSAV 


000100 


0C01D0 




IEAMSB8X 


C00208 


C0C2C8 


IEATIBBX 


000230 


OC023C 




PISAV 


00C2A0 


00C2AC 


PDSAV 


C002C0 


0CC2CC 




SVF 


C002E7 


CCC2E7 


SVEX 


C002E8 


0C02E8 




AIOS 


C002F0 


CCC2FC 


SLMT 


000304 


000304 




IORGSW 


C00306 


CC03C6 


IEA0I002 


000316 


000316 




DISMISS 


000346 


0C0346 


IEAOXEOO 


O0C45A 


00045A 




SVCSAV 


C0C4CC 


CCC4CC 


RESUMPSW 


C0C50C 


000 500 




IEAODS 


C0051C 


CCC510 


IEATCBP 


000578 


000578 




IEATCBLK 


000578 


000578 


IECIERLC 


0CC582 


000582 




IEAOEFOfly 


«*-*■"' %sc 


CCC5<3C 


SIRB ... 


flpn^pp 


CC06E8 / 




XtZXpr 




O0C762 






, *««^p0784 - / 





o 

n- 

H 



s 



T) 






IP8MDMAP - SYS1.NUCLEUSI IEANUC01) 








DATE=7C091 NUMERICALLY 


BY RLO ITEM 


LOCATION 


REL ADR 


IN CSECT 


REFERS TO 


IN CSFCT 


LOCATION 


REL ACR 


IN CSECT 


REFERS TO 


IN CSECT 


000010 


000010 


IEAAIHOO 


IEACVT 


IEACVTRN 


000014 


000014 


IEAAIHOO 


IEATRTBL 


IEATRC 


00004C 


0C004C 


IEAAIHOO 


IEACVT 


IEACVTRN 


0C008C 


COO 80 


IEAAIHOO 


IFBACTA 


IFBCTAOO 


000174 


000174 


IEAAIHOO 


IEANIP4 


IEAANIPO 


0002E0 


0C02E0 


IEAAIHOO 


SVCTBL 


IHASVCOO 


0002E4 


0002E4 


IEAAIHOO 


SVPRFX 


IHASVCOC 


0002E8 


0C02E8 


IEAAIHOO 


SVE 


IEAATAOO 


0002 EC 


0002EC 


IEAAIHOO 


DXA 


IEAATAOO 


0002F8 


0002F8 


IEAAIHOO 


IEAOPLOO 


IEACPLOO 


00O2FC 


0002FC 


IEAAIHOO 


PSWNDX2 


IEATRC 


CC0300 


000300 


IEAAIHOO 


PSWNDX 


IEATRC 


0003B0 


CC03B0 


IEAAIHOO 


IEEBC1PE 


IEEBCIPE 


0003B4 


000384 


IEAAIHOO 


IEAOTIOO 


IEAQTIOC 


000570 


000570 


IFAAIHCO 


IEAQTEOO 


IEAQTIO0 


000574 


000574 


IEAAIHOO 


IEAQT001 


IEAQTIOO 


000748 


000748 


IEAAIHOO 


IEAOFNOO 


IGC006 


0012F8 


C012F8 


IEAAIHOO 


IEATCBLK 


IEAAIHOC 


001300 


001 3C0 


IEAAIHOO 


IEAOPTCI 


IGC002 


001304 


001304 


IEAAIHOO 


ER2311 


IEC23XXE 


001310 


001310 


IEAAIHOO 


TRACE 


IEATRC 


00131C 


00131C 


IEAAIHOO 


IEASVDCB 


IGCCC6 


00132C 


00132C 


IEAAIHOO 


IEAOEFOO 


IEAAIHOO 


0C133C 


001330 


IEAAIHOO 


IEAAJOBQ 


IEAAJOBQ 


001384 


0C13B4 


IEAAIHOO 


IEEBAI 


IEEBAI 


0C13BC 


0013BC 


IEAAIHOO 


IEFDPOST 


IEFDPCST 


0013CO 


0013C0 


IEAAIHOO 


IFFIOM 


IFFABA 


00188C 


00188D 


IEAAIHOO 


IFFB016 


IFFBDA 


00250D 


00250D 


IEAAIHOO 


IFFB1E0 


IFFBOA 


0C2535 


002535 


IEAAIHOO 


IFFB206 


IFFBDA 


002E39 


002E39 


IEAAIHOO 


IFF82EC 


IFFBDA 


002E61 


002E61 


IEAAIHOO 


IFFB2E1 


IFFBOA 


O05FO0 


0000E8 


IGC009 


SVCSAV 


IEAAIHOO 


0C5F22 


C0010A 


IGCOOS 


SVCSAV 


IEAAIHOO 


0C5F7C 


000158 


IGC009 


IEAARAM4 


IGC006 


0C626A 


0C02EA 


IGC006 


IEAOI002 


IEAAIHOO 


00626E 


0002EE 


IGCC06 


IEA0IO02 


IEAAIHOO 


0064D1 


0C0551 


IGC006 


IEA0I0C2 


IEAAIHOO 


00655B 


0005DB 


IGC006 


IEA0IO02 


IEAAIHOO 


0C6598 


000618 


IGC006 


XSNTCC 


IEAATAOO 


00659C 


00061C 


JGC006 


IEWMSEPT 


IEWFTHSL 


007022 


000002 


IEAOPLOO 


LEAlfBP 


IEAAIHOO 


007026 


000006 


IEAOPLOO 


IORGSW 


IEAAIHOO 


00702E 


00^*^ 


lEAQPLQJV 




•SjEAAIHOO 


007042 




IEACPLOO 


PISAV 


IEAAIHOO 


00 704^— 








^«*— ■S^OO 


£0706^* 




Neacplco 
\acploo 


IEACXECO 
IEAOABOO 
lEArf*-"-*-. 


IEAAIHOO 
lEACABOO 


oojor 











Figure MDMAP-10. Excerpts From the Map Resulting From Example 2 




Example 3: Mapping a Load Module with the DEBUG and Relocation Options 

This example includes the DEBUG and relocation options. Because of 
the nature of the module being mapped, IMBMDMAP produced (in addition to 
the regulation map items) hexadecimal dumps of the PDS directory and of 
the load module, and snapdumps 1, 5, and 6 of the series described under 
the DEBUG parameter discussion. Figure MDMAP-11 shows excerpts from the 
listing. 

MSGLEVEL=(1, 1) 

PGM= IMBMDMAP , PARM= f DEBUG, 7FFFF ■ 

DSN=SYS1.LINKLIB ( IEFW21SD) , DISP=SHR 

SYSOUT=A 

SYSOUT=A 



//JOBU 


JOB 


//DEBUGDMP 


EXEC 


//DDU 


DD 


//SYSPRINT 


DD 


//SNAPDUMP 


DD 


/* 
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n 

(D 



T3 



Ui 



LOAD 


MODULE 


MAP 


VERSION LEVEL C.19G 














IPBMDMAP - 


SYS1.LINKLI8I IEFS0C61) 








EP=010A20 DATE 


=70.091 NUMERICALLY BY ESD ITEM 


ATTRIBUTES 


- REUSt 


RENT 


















NAME - IEFS0061 


ALIASES 


- IEFS0065 


IEFSD1C4 IEFV4221 IEFW42SD 












CSECT 






ENTRY 






ENTRY 




EXT REF 


NAME 


ADDRESS 


LENGTH 


TYPE 


NAME 


ADDRESS 


PEL ADR 


NAME 


ADDRESS 


REL ADR 


NAME 


IEFSD061 


O10A20 


000 7B 4 


SO 
















CMTMSG 


0111D8 


000035 


SO 
















IEFSD064 


011210 


0CC4E8 


SO 
















IEFSD065 


0116F8 


000138 


SO 
















IEFSD066 


011830 


000256 


SO 
















IEFOSTBL 


011A88 


0002B8 


SO 
















IEFOSLST 


01104C 


0C0180 


SO 
















IEFDSTRT 


011ECO 


0001FF 


SO 
















[EFACTLK 


0120CC 


0CC41C 


SO 
















IEFACTRT 


0124EG 


00C002 


SO 
















IEFUJI 


0124E8 


■ 000004 


SD 
















IEFUSI 


0124F0 


000004 


SO 
















IEFSMFWI 


0124F8 


00C4E6 


SO 
















IEFSMFIE 


0129EC 


000210 


SD 
















IEFSD062 


O12BF0 


0001BC 


SD 
















IEFSD104 


Q12D80 


0000A2 


SD 
















IEFIOMPM 


012E58 


O0G219 


SD 
















IEFW42SD 


013078 


000146 


SD 


IEFV4221 


0130DE 


OOC066 










IEFIOUMP 


0131CO 


0CC41A 


SD 
















IEFYN 


0135E0 


CCC568 


SD 
















WTERM020 


013B48 


000036 


SD 
















IEFYP 


013B80 


0002AF 


SO 
















IEFVJ 


013E30 


000178 


SO 
















WTERM030 


013FA8 


00004B 


SO 
















IEFZG 


013FF8 


OC0A67 


SO 
























ZG0J5 


014286 


00C28E 


ZG0J8 


C142A8 


C0G2B0 




IEFZG2 


C14A60 


00C933 


SO 
























ZG0K09 


014A60 


cocooc 


Z00A1 


014E14 


0003B4 












ZOOE10 


015048 


0CG5E8 


ZP0C10 


01515E 


0006FE 












ZP0QMGR1 


01521C 


0CC7BC 










IEFH22SO 


015398 


00C006 


SD 
















IEFZGMSG 


015470 


0001A2 


SO 
















IEFZH 


015618 


O00A14 


SO 
























ZG0E60 


01564A 


000032 


ZKGD1 


0158E0 


0002C8 












ZK001A 


015B48 


CC053C 


ZK0E1 


C15B82 


00C56A 












XPS631 


C15E60 


000848 










IEFWTERM 


01603C 


000C65 


SO 


WTERM050 


C1605C 


00C02C 










IEFW31SD 


016098 


00C5BE 


SD 
















IEFS0060 


C16658 


000016 


SD 
















IEFYT 


01667C 


C0028E 


SD 
















IEFQMSSS 


016900 


00001C 


SO 
















IEFYS 


016920 


00C174 


SD 
















IEFOASGN 


016A98 


00048A 


SO 
















IEFQASNM 


016F28 


000055 


SD 
















IEFCMRAW 


C16F8C 


000140 


SD 
















IEFQMWTO 


0170CC 


00C03F 


SO 

















Figure MDMAP-11. Excerpts From the Map Resulting From Example 3 




Operational Considerations 



You should pay careful attention to the following points when using 
IMBMDMAP: 

A maximum of sixteen aliases will be printed, since the linkage 
editor assigns no more than sixteen. 

Link pack area maps for MET do not include resident SVC routines. 

If the DEBUG parameter is used, a SNAPDUMP DD statement must be 
included in the jobstream. 

A DD statement is required for each load module to be mapped. 

To map a nucleus load module, the nucleus must be a member of a 
partitioned data set named SYSn. NUCLEUS, or incorrect will result. 

To obtain a main storage dump in the event of abnormal termination 
when using the DEBUG parameter, a SYSABEND or SYSUDUMP DD statement 
must be included in the jobstream. 
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Chapter 7: IMCOSJQD 

Operates as a problem program to format and print the system job queue. 



OSJQD 
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Introduction 



IMCOSJQD is a service aid that formats and prints the contents of the 
system job queue data set (SYS1.SYSJ0BQE) . IMCOSJQD is similar in 
function to the standalone service aid IMCJQDMP; however, IMCOSJQD 
operates as a problem program under the operating system, using standard 
access methods. IMCOSJQD can therefore be used without disrupting 
normal operating system processing; this is a great advantage in a 
large installation where stopping and restarting the operating system 
can take a long time. 

To save even more time , you can specify that IMCOSJQD output should 
be stored temporarily on tape rather than printed immediately. The tape 
can be printed later, at your convenience. 

You can use IMCOSJQD to dump the entire job queue, or you can select 
specific queues within the job queue and their associated logical tracks. 



OSJQD 
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Starting IMCOSJQD 



IMCOSJQD resides in the linkage library (SYS1.LINKLIB data set). You 
can invoke it either through job control statements in the input stream 
or through the system console. 

In almost every case you will run IMCOSJQD to produce a listing that 
will help you diagnose a problem connected with the job queue. If the 
problem is relatively minor, and the system can continue processing, you 
can schedule IMCOSJQD immediately. For more severe problems, when the 
operating system cannot continue processing, you must restart the system 
before running IMCOSJQD. 

Restarting the System 

If the system goes down, first try a system restart (warm start); that 
is, IPL without reformatting the job queue. If the restart fails, take 
action as suggested below: 

If your installation has a volume containing an alternate 
SYS1.SYSJ0BQE data set, restart the system, requesting that that volume 
be formatted as the new job queue data set. Then run IMCOSJQD, 
specifying the original job queue data set as input. 

If your installation has more than one operating system, and time is 
not critical, mount the volume containing the job queue on another 
system. Then run IMCOSJQD on that system, specifying the transferred 
data set as input. 

If you cannot use an alternate volume, or if the volume containing 

the job queue data set cannot be moved, dump the job queue data set to 

another direct access volume with a different volume serial number, as 
follows: 

1. Execute the IBCDMPRS utility to dump the SYSl.SYSJOBQE data set to a 
direct access device. Use IBCDMPRS control statements like those 
shown in the following example: 

DUMP JOB DUMP 2314 ONTO 2314 

DUMP FROMDEV=2314,FROMADDR=230, 

TODEV=2314,TOADDR=232, 

VOLID=ALTQUE 
END 

For more information about the IBCDMPRS utility program, refer to 
the publication IBM System/360 Operating System, Utilities, 
GC2 8-6586. 

2. Restart the operating system, specifying that the job queue should 
be reformatted. This will establish a fresh job queue. 

4. Run IMCOSJQD, specifying the new direct access data set as input. 
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invoking OSJQD by JCL 

Figure OSJQD-1 shows an example of job control statements used to invoke 
IMCOSJQD. The statements are described below. 



//DUMP JOB MSGLEVEL=(1, 1) 

// EXEC PGM=IMCOSJQD 

//OSJQDIN DD DSNAME=SYS1. SYSJOBQE, 

// UNIT=2314,V0L=SER=111111, DISP=SHR 
//OSJQDOUT DD UNIT=2400, DISP=(NEW, KEEP) , 

// DSNAME=QUEUEOUT ,LABEL= ( , NL) 
//SYS PRINT DD SYSOUT=A 

[//SYSIN DD *] 



/* 

Figure OSJQD-1 



An Example of Job Control Statements Used to Invoke 
IMCOSJQD 



EXEC Statement 



calls for the execution of IMCOSJQD. 
OSJQDIN DD Statement 



defines the job queue to be processed. Note that the DD statement 
that defines the input data set must be named OSJQDIN. 

OSJQDOUT DD Statement 

defines the output data set. In this case the output data set, 
named QUEUEOUT, resides on a tape device. Note that the DD statement 
that defines the output data set must be named OSJQDOUT. 

SYS PRINT DD Statement 

defines the IMCOSJQD message data set. 

SYSIN DD Statement (optional) 

defines the data set that contains IMCOSJQD options. In this case, 
the options follow the job control statements in the input stream. 
If this statement is omitted, the operator will be prompted to 
supply options. 

Invoking OSJQD from the System Console 

If you wish, you can include the job control statements shown in Figure 
OSJQD-1 as a cataloged procedure in the procedure library (SYS1.PROCLIB 
data set) ; this allows the operator to initiate IMCOSJQD processing from 
the console. 

Use the IEBUPDTE Utility to include your IMCOSJQD cataloged 
procedure in SYS1.PR0CLIB. The name you specify in the ADD control 
statement for IEBUPDTE is the name of the procedure that you must 
specify in the START command. For information on using IEBUPDTE, refer 
to the publication IBM System/360 Operating System: Utilities, GC28-6586. 
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Figure OSJQD-2 shows an example of a cataloged procedure that calls 
IMCOSJQD. 

//OSJBQDMP PROC REG=20, D=' SYSl. SYSJOBQE • ,U=231U , VS=111111 , 

// DSP=SHR,UN=2400,DISP=(NEW,KEEP) , DSN=QUEUEOUT 
// EXEC PGM=IMCOSJQD,REGlON=SREG.K 

//OSJQDIN DD DSNAME=SD,UNIT= : SU,VOL=SER=£VS,DlSP=&DSP 

//OSJQDOUT DD UNIT=&UN,DISP=SDISP,DSNAME=£DSN 

//SYS PRINT DD SYSOUT=A 

/* 

Figure OSJQD-2. An Example of a User-Written Cataloged Procedure 
to Call IMCOSJQD from the System Console 

PROC Statement 

defines the name of the cataloged procedure and default values for 
any symbolic parameters included in the remaining statements in the 
procedure. In this case, the defaults are as follows: the input 
data set is SYSl. SYSJOBQE, the output data set is QUEUEOUT, and the 
region size is 20K. Note that you can specify any name for the 
procedure on the PROC statement. 

EXEC Statement 

calls for the execution of IMCOSJQD, and specifies the region size 

by a symbolic parameter. (The default region size specified in the 

PROC statement is 20K; this is the minimum region size required for 
IMCOSJQD processing.) 

OSJQDIN DD Statement 

defines the input data set. In this case, symbolic parameters 
permit the operator to specify an input data set or accept the 
defaults specified in the PROC statement. 

OSJQDOUT DD Statement 

defines the output data set. In this case, symbolic parameters 
permit the operator to specify an output data set or accept the 
defaults specified in the PROC statement. 

SYS PRINT DD Statement 

defines the message data set. 

Note that the SYSIN DD statement has been omitted from this cataloged 
procedure; as a result the operator will be prompted to supply options 
when he starts IMCOSJQD. 
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Figure OSJQD-3 shows an example of an exchange between the operator 
and IMCOSJQD while starting IMCOSJQD. Note that in this example the 
operator made an error the first time he selected dump parameters, and 
IMCOSJQD prompted him to correct his error. 

start osjbqdmp, , ,reg=24 



00 IMC001A SPECIFY SELECT PARAMETERS OR END 
r00 # *qcr =013=0* 

01 IMC002A COMMAND ERROR - ENTER QDUMP PARAMETERS 
rOl, 'qcr=class=c' 

00 IMC001A SPECIFY SELECT PARAMETERS OR END 
rOO, 'qcr=class=g' 



IMC005I SPECIFIED QUEUE IS EMPTY 

02 IMC001A SPECIFY SELECT PARAMETERS OR END 
r02 f 'qcr=class=a, jobname= (myjob,you job, his job) " 



IMC006I THESE JOBS NOT FOUND 
HIS JOB 

03 IMC001A SPECIFY SELECT PARAMETERS OR END 
r03, , qcr=class=a, jobname= (myjob,her job) • 



OU IMC 001 A SPECIFY SELECT PARAMETERS OR END 
r04, 'end' 

IMC 004 1 QDUMP COMPLETE 

Figure OSJQD-3. A sample exchange between operator and IMCOSJQD. 
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Controlling OSJQD 



You control IMCOSJQD processing by defining the input data set and by 
supplying control statements. 

Defining the Input Data Set 

In most cases, the input to IMCOSJQD will be the system job queue, 
SYS1.SYSJOBQE. However, IMCOSJQD will accept as input any data set on a 
direct access device that has the format of the system job queue. This 
feature is useful when you have transferred the contents of the 
SYSl.SYSJOBQE data set to another volume, as described earlier in 
"Preparing to Use IMCOSJQD". 

Using the Control Statements 

Several control statements allow you to specify how much of the job 
queue you want IMCOSJQD to format and print. You can enter these 
control statements in two ways: 

• If you invoke IMCOSJQD with JCL and include a SYSIN DD *, you can 
include control statements as cards in the input stream. If you 
want more than one dump operation, you must supply a separate card 
for each dump. IMCOSJQD will process the cards sequentially and 
produce a separate output listing for each one. (Blank cards will be 
ignored.) IMCOSJQD will terminate when it reaches end-of-file. 

• If you start IMCOSJQD from the console, or if you omit the SYSIN DD 
* statement from the JCL, IMCOSJQD will prompt you to supply dump 
options. In reply you should define one dump operation fully. 
IMCOSJQD will prompt you again when it has finished processing the 
first dump, and you can then define a new dump operation. If you 
want to terminate IMCOSJQD processing, you must wait for a prompting 
message and reply END. (See Figure OSJQD- 3.) 

There are four IMCOSJQD control statements: QCR= , JOBNAME= , ALL, and 
END. 

QCR-|ASB A 
CLASS=y 
FREE 
"S HOLD Y 
RJE 

SYSOUT=x 
^SUBMIT , 

specifies that the job queue data set's master queue control record 
and the queue records associated with the named work queue should be 
formatted and printed. The parameters are mutually exclusive; if 
you want more than one specific work queue, you must request 
separate dump operations for each. 

For each QCR= option, IMCOSJQD dumps the master queue control 
record, the requested minor queue control record, and the logical 
tracks associated with that minor queue. The QCR= options and the 
minor queue control records they request are as follows: 
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ASB - Automatic SYSIN Batching Queue 

CLASS=y - An input job queue (A through 0) 

FREE - Free Track Queue 

HOLD - Hold Queue 

RJE - Remote Job Entry Work Queue 

SYS0UT=x - An output job queue (A through Z and through 9) 

SUBMIT - TSO Background Reader Queue 

JOBNAME=( jobnamel [. . . , jobnameU]) 

requests IMCOSJQD to search all fifteen input work queues for 
logical track areas assigned to the specified jobname(s). These 
will be dumped along with associated system message blocks and data 
set blocks. 

Note that searching all the input work queues for a job is a 
time-consuming operation. To reduce this time, use the QCR=CLASS=x 
control statment in combination with the J0BNAME= control statement 
to specify the input class of the requested job(s). For this 
purpose both control statements may be coded on a single card or 
entered as a single reply to a prompting message. An example of 
such an entry is: 

QCR=CLASS=B, J0BNAME= (NEWJOB) 

ALL 

requests a dump of the entire job queue. This is the default 
option; it will take effect if the operator replies to the message 
prompting him for dump options by entering r xx, , U*. 
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IMCOSJQD Output 



IMCOSJQD output can be directed either to a printer device or to a 
scratch tape, from which it can be printed later. Immediate printing 
can take a long time, so in most cases you should direct IMCOSJQD* s 
output to a tape. Figure IMCOSJQD- 4 shows the differences in execution 
time per 100 tracks between tape and printer output for various devices 
on which the job queue can reside. 





Output 


Device 


Queue Device 


Printer (1403) 


Tape (24 00) 


2311 


11. 3 minutes 


4.0 minutes 


2314 


19.5 minutes 


6.9 minutes 


2301 


49.5 minutes 


17.4 minutes 



Figure OSJQD-4. 



IMCOSJQD Execution Time per 100 Tracks of Input 
as a Function of Output and Input Devices 



Once IMCOSJQD' s output is on a scratch tape, you can print it at any 
time using IEBPTPCH. Figure OSJQD-5 shows an example of the job control 
statements needed for this operation. For more information, refer to 
the publication IBM System/360 Operating System, Utilities, GC28-6586. 

//PRINT JOB MSGLEVEL=(1,1> 

// EXEC PGM=IEBPTPCH 

//SYSPRINT DD SYSOUT=A 

//SYSUT1 DD UNIT=2400,IABEL=(,NL),VOL=SER=QDUMPT, 

// DISP= (OLD, KEEP), DCB=(RECFM=F,BLKSIZE=121,LRECL=121) 

//SYSUT2 DD SYSOUT=A 

//SYS IN DD * 

PRINT PREFORM=M 
/* 

Figure OSJQD-5. Sample JCL and Control Statements Used to Print a 
9-Track Tape Containing IMCOSJQD Output 

Figure OSJQD-6 shows a sample listing of a job queue as produced by 
IMCOSJQD. 
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TTR NN 


TYPE 


DISP 




O=00E,Q=192 








000001 


QCR 


OOOO 


OCOOOCOO 




MASTR 


0018 


CC250C0F 


C00002 


QCR 


OOOO 


OCOOOCOO 




HOLD 


0018 


OCOOOCCC 


000003 


OCR 


OOOC 


OCCCOCCC 




ASB 


0018 


ccocccoo 


C00004 


QCR 


OOOC 


CCOGOCCO 




OUT=A 


0018 


CCCCOCCC 


C00005 .^— >. 


QCR 


OOOO 


OCOOOCOO 




. OUT=B 


0018 


ccccorco 



SYSJOBQE OliKF 



PAGE OOCi 



02000001 CC066701 01910180 00060GOC 05B10003 *. 
000CC0C6 00020010 *. 

COCOCOCO OOOCOOOC CCCCOCCC CCOOOOOO oooooooo *. 
oooooooo oooooooc *. 

oocooocc CCCCOCCC CCCCOCCC ooooocoo oooooooo *. 
oooooooc CCOCOOOO *. 

OOOOOOCO OCOCOOCC CCCOCOCC OCOOOCOO COOOOCOO *. 
CCOOOOOO CC06056C *. 

COOOOOCO OOOOOOOO OCCCOCCC CCOOOCCO oooooooo *. 
C0C00CCC COOOOOCO 



o 
tr 
pj 

ti- 
ro 



H 

s 
o 
o 
en 
c-i 
o 
a 






TTR 
000 202 

000203 
000204 

COC205 

C00206 
000 20 F 
000210 
000211 


NN 

OOCI 
0002 

0003 

0004 
OOOD 
OOOE 
COOF 


TYPE 

OCR 
RESRV 

LTH 
LTH 


OISP 

OOOO 
0018 

OOOO 

OOOO 
0018 
0030 
0048 
C060 
00 78 
C090 
00A8 

OOOC 
0018 
0030 
0048 
00 60 
0078 
0C90 
00A8 

OOOO 

OOOO 
0018 
0030 
"v^OO^JB.,, 


OCOOOCCC 
CCOOOCCO 

C9C5C503 

E2E8E2F1 
4C4C4C40 
4C4C4C40 
OCOOOCOO 
FF744CC0 
E209C5E2 
4C4C4C40 
OCCCOCCC 

E2E8E2F1 
4C404C40 
4C4C4C4C 

OCCCDCOO 
CE294000 
E2D9C5E2 
4C404C4C 
OCOOOCOO 

ENTIRE 

ZERC R{ 

E2D4C640 

E2E8E2F1 
4C404C40 
4C4C4C40 

_O0CCOCOC 


SYSJOBGE Cl 

CCOCOOOO OOOCOOOC 
COCOCOCO OCOCOOOO 

06C7404C 0CCCC104 

4BE2E8E2 E5D3D6C7 
4C40404C 4C4C404C 
COCOCOCO OOOCOOOC 
80000000 63016E63 
50800E28 COOCOCCC 
40404040 4C404040 
C0000206 0C000C88 
COOCOIOO 

4BE2E8E2 E5D3D6C7 
4040404C 40404040 
GOCCOOCO CCCOCOCC 
80000000 63016E63 
508C0E28 OOOCOCCC 
40404040 4C4C404C 
CCC0C207 00000088 
COOCCIOO 

RECORD CONTAINS B 

ECOROS SUPPRESSED 

40404040 00000EG4 

4BC4C1D5 E74C404C 
40404040 40404040 
COCOQOCO OOOOOOOC 
OOOOOOCO OOOOOOOO 


JPF 
CCOOOCCO OOOOOCOO 

00000100 CCOFCOOO 

E74C4C4C 40404040 
4C4C404C 4C40404C 
CCCCOCCC OCOOOICO 
C15E0C80 OCOOOOOC 
CCCCOCOC CCOOCCCO 
4C404040 40404040 
CCCCOCCO CCOCOOOO 

E84C4C40 4C404C40 
4C404040 40404040 
CCCCOCCC CCCOCIOC 
C15E0C80 CCOOOOOO 
CCCCOCCC CGCCCCOO 
4C404040 40404040 
OCCOOOCO CCOCOOOO 

[NARY ZERGS 

CCOOOICC OCOFOOOO 

4C40404C 4C404040 
40404040 4C404040 
OOOCOOCO COCOOIOO 


OOOOOOOO 

40404040 
40404040 
02010000 
COOOOOCO 
0001E2E8 
40404040 
COOOOOCO 

404-04040 
40404040 
OOOOOOCO 
OOOOOOOO 
0001E2E8 
40404040 
OOOCOCOO 

404C4040 
40404040 
OOOOOOCO 
^0000,00, 




PAGE 0CC6 




* 




*SYS1.SYSVL0GX 

# 


* 
* 










*SRES 


* 


*SYS1.SYSVLGGY 

* 


* 

* 
* 










♦ SRES 


* 




* 


♦SYS1.MANX 

* 


* 
* 





















Sample OSJQD-6. Sample OSJQD Output, Showing Output Comments 



a 



Record identification Headings 

For each record, IMCOSJQD supplies information under the following 
headings : 

TTR 

Direct access address, relative to the beginning of the data set, 
for QCR and logical track records. 

NN (not supplied for queue control records) 

gives the sequence number of the logical track record within the 
specific work queue. This is a hexadecimal number assigned to each 
new record as it is added to the queue. The first logical track 
header record in the queue is always 1; for each new record added 
to the queue, the value of nn is increased by 1. 



TYPE 



identifies the record type. IMCOSJQD recognizes the record type in 
two ways: queue control records and logical track header records 
are identified through their position in the structure of the job 
queue. Records from the logical track area are identified by the 
value in the ID field of each record (byte 4, at offset X'03 f ). 

The following table shows the type labels and their significance. 
Where applicable, the ID field value is also shown. 

RECORD 

Queue Control Record. 

Logical Track Header Record 

Account Control Table 

Data Set Block 

Data Set Enqueue Table 

Data Set Name Table 

Job Control Table 

Procedure Override Table 

Step Control Table 

Step Control Table Extension 

Step Input Output Table 

System Message Block 

Volume Table 

If no TYPE identifier is shown in the listing, the record is either 
a job file control block (JFCB) , job file control block extension 
(JFCBX), or system output class directory (SCD), etc. 



TYPE 


ID 


QCR 


- 


LTH 


- 


ACT 


01 


DSB 


15 


DSENQ 


OF 


DSNT 


07 


JCT 


00 


POT 


0A 


SCT 


02 


SCTX 


OC 


SIOT 


03 


SMB 


05 


VOLT 


06 
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The column headed TYPE in the listing also identifies the name of 
the specific work queue associated with a queue control record. The 
following table shows the work queue identifiers and their 
significance. 

ASB Automatic SYSIN Batching Queue 

CLS=y System Input Job Class Queues; y is the class identifier 
(A through 0) . 

HOLD Hold queue 

MASTR Master queue control record. 

OUT=x SYSTEM Output Class Queues; x is the class identifier (A 
through Z and through 9). 

RESRV Reserved queue control records. 

RJE Remote Job Entry Queue. 

SUBMT Background Reader Queue 

DISP 

gives the displacement within a record of the next hexadecimal word 
to be printed on the listing. The first word of the first printed 
line for a given record has a displacement of X'OOOO*; the first 
word of the second printed line, if one exists, has a displacement 

of x'ooisv. 

Output Comments 

IMCOSJQD does not dump records that consist entirely of binary zeroes. 
Instead, when it comes to an all-zero record, it prints 

ENTIRE RECORD CONTAINS BINARY ZEROES 

and supplies TTR and NN information as described in the previous 
section. If IMCOSJQD comes to subsequent all-zero records, it will stop 
printing records until it comes to the next non-zero record or the next 
logical track header record. To indicate that all- zero records are not 
being printed, IMCOSJQD prints 

ZERO RECORDS SUPPRESSED 

See Figure OSJQD-6 for an example of an output listing showing these 
comments . 

Error Recovery Procedures 

IMCOSJQD error recovery depends on what kind of dump is being produced, 
what record was being read when the error occurred, and how many times 
the error has already occurred. 
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If you have requested a full dump (by specifying ALL when starting 
IMCOSJQD), IMCOSJQD will attempt to recover from all errors except those 
that occur while reading the master queue control record. To recover, 
IMCOSJQD prints an output error indicator, attempts to print the record 
associated with the error, and proceeds by reading the next record. If 
IMCOSJQD could not read the record associated with the error, it prints 
an appropriate output error indicator on the output listing, and then 
continues processing with the next queue record. 

IMCOSJQD will permit up to 20 consecutive errors to occur before 
abandoning its attempts to recover. After the twentieth consecutive 
error, however, it will issue message IMC016I (PERMANENT I/O ERROR ON 
OSJQDIN), print the contents of the SYNAD buffer, and obtain the next 
dump option. 

If you have requested a selective dump, or if an error occurs while 
reading the master queue control record, IMCOSJQD does not attempt to 
recover from any errors. It prints the record associated with the error 
or an output error indicator, issues message IMC 0161, prints the 
contents of the SYNAD buffer, and obtains the next dump option. It does 
this by searching the SYSIN data set, if control statements were entered 
from the input stream, or by prompting the operator to supply dump 
options, if control statements were entered from the console. It will 
not terminate processing unless it encounters an END control statement 
or an end-of-file condition. 

The error messages and their meanings are as follows: 

badttr - INVALID TTR 

IMCOSJQD will print this line in place of the record it could not 
find, followed by the contents of the SYNAD buffer. 

DNABLE TO READ RECORD 

An input/output error occurred while IMCOSJQD was trying to read a 
queue record. IMCOSJQD prints the TTR and NN values associated with 
the record, and substitutes this message for the contents of the 
record itself. The message is followed by the contents of the SYNAD 
buffer. 

I/O ERROR READING FOLLOWING RECORD 

An input/output error occurred while IMCOSJQD was trying to read a 

queue record; the error did not prevent IMCOSJQD from reading the 

record. IMCOSJQD prints this message to indicate that the record 

contains an error, and follows it with the record itself and the 

contents of the SYNAD buffer- It also prints the TTR and NN values 
assocaited with the record. 

INVALID LENGTH RECORD 

IMCOSJQD has encountered a record which is not a standard length 
(for a normal queue record, standard length is 176 bytes; for 
logical track header records, 20 bytes; for queue control records, 
3 6 bytes). IMCOSJQD prints this message, followed by the record 
and its associated TTR and NN values. No SYNAD information is 
included . 
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JCL and Control Statement Examples 



The following examples illustrate some of the functions that IMCOSJQD 
can perform. 

Example 1: Dumping the Input Job Queues 

This example shows how to format and print three input job queues, the 
automatic SYS IN batching queue, and two output job queues. Note that 
the only JCL statement shown is the SYSIN DD statement; for an example 
of the other JCL statements required to invoke IMCOSJQD, see Figure 
OSJQD-1. 

//SYSIN DD * 

QCR=CLASS=A 

QCR=CLASS=B 

QCR=CLASS=C 
QCR=ASB 
QCR=SYSOUT=A 
QCR=SYSOUT=B 
/* 

Note that each control statement requests a separate queue, and that the 
control statements are entered in free form. 

Example 2: Searching the Input Queues for a Specific Job 

This example shows how to combine the QCR= and JOBNAME= control 
statements to search a limited number of queues for specific jobs. Note 
that the only JCL statement shown is the SYSIN DD statement; for an 
example of the other JCL statements required to invoke IMCOSJQD, see 
Figure OSJQD-1. 

//SYSIN DD * 

QCR=CLASS=A, JOBNAME= (MYJOB, YOURJOB, HIS JOB, HER JOB) 
/* 

Note that the maximum of four jobnames are specified in the JOBNAME= 
control statement. 

Example 3: Dumping the Entire Job Queue 

This example shows how to dump the entire job queue. Note that the only 
JCL statement shown is the SYSIN DD statement; for an example of the 
other JCL statements required to invoke IMCOSJQD, see Figure OSJQD-1. 

//SYSIN DD * 

ALL 
/* 

Coding the ALL control statement has the same effect as replying 
r xx, *U* to message IMC001A. 
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Chapter 8: IMDPRDMP 

Formats and prints dumps, TSO swap data set, and GTF trace data. 



PRDMP 
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Introduction 



IMDPRDMP is a service aid that prints system dump and trace information. 
Its principal function is to save you time; it does this by producing 
formatted output that you can scan quickly and easily. Within certain 
limits, it even allows you to suppress formatting and printing of 
information that does not interest you. 

IMDPRDMP can process the following kinds of input: 

• Dump data sets. These include: 

• IMDSADMP high-speed dump data set. 

• SYS1.DUMP data set. 

• TSO dump data set. 

• TSO swap data sets. 

• GTF trace data. This may exist as: 

• GTF external trace data set (usually called SYS1. TRACE). 

• GTF trace data in buffers within a main storage dump. 
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Figure PRDMP-1 shows the general characteristics of these types of input 
and how they relate to IMDPRDMP processing. 



INPUT 



Control Statements 


















SYS IN 


or 


Console 






See Figure PRDMP-2. 
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GTF External 
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NOTES: 

Input DD Statements: 

//SYS IN - Control statements. 

//TAPE or //anyname - Dump data sets and GTF 
trace data sets. 

Output DD Statements: 

//PRINTER - Formatted output. 

//SYSPRINT - IMDPRDMP messages. 



Figure PRDMP-1. IMDPRMDP Input and Output 
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Functions 



You vary the formatting and printing of a dump by supplying IMDPRDMP 
control statements. You can enter these either as replies to prompting 
messages issued to the console, or as cards in the input stream. 

The control statements provide the following functions: 

Formatting Control Blocks 

You can specify one control statement (FORMAT) that will cause IMDPRDMP 
to format all major system control blocks for each task in the system. 
When printed, the formatted output will look like a SYSABEND dump. 
Note: IMDSADMP low-speed dump tapes can be printed using IMDPRDMP, but 
they will not be formatted. 

Editing GTF Trace Data 

IMDPRDMP can format GTF trace data either as records in the trace data 
set or as buffers contained in a dump data set. You can edit trace data 
by specifying special keywords in the EDIT control statements. You can 
also write exit programs to inspect the data before IMDPRDMP formats it. 
Suggestions on how to write a user exit program will be provided in the 
Appendix: Writing EDIT User Programs. 

Dumping the TSO Swap Data Set 

If a failure occurs in the TSO subsystem or in the operating system, it 
is important to capture the TSO SWAP data set quickly so that TSO can be 
restarted without undue delay. You can do this by executing IMDPRDMP 
against a SWAP data set and a dump data set, and directing its output to 
tape. The tape may be printed later, at your convenience. 

Clearing SYS1.DUMP 

You can use IMDPRDMP to transfer the contents of the SYSl.DUMP data set 
to another data set for later formatting and printing at a more 
convenient time. This allows you to clear the SYSl.DUMP data set and 
resume processing without pausing to print the contents. 

Selective Printing 

In a single control statement called PRINT, you can specify precisely 
what areas of main storage you want IMDPRDMP to print. IMDPRDMP will 
format and print control blocks that are associated with specified areas 
of main storage, unless you specify only PRINT NUCLEUS or PRINT STORAGE. 
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PRINT allows you to specify printing of main storage areas that are 
associated with: 

• A certain jobname. 

• The current task. 

• The task terminated by the damage assessment routine (DAR) # where 
applicable. 

You can also choose printing of the nucleus, system queue area, 
and/or all of allocated main storage- 
Other control statements provide the following functions: 

Resident System Module Mapping 

IMDPRDMP can generate a link pack area map (MVT) or a resident 
reenterable load module area map (MFT) . These maps describe resident 
system modules that were loaded into main storage by the nucleus 
initialization program (NIP). If you request a map, it will be printed 
on a separate page or pages of the IMDPRDMP formatted dump listing. 
These maps are useful in diagnosing system failures that occurred in 
program modules residing outside the user ' s region or partition. 

Queue Control Block Trace 

IMDPRDMP can provide a separate listing of the formatted queue control 
blocks for all task control blocks in the system. This listing, known as 
a QCB trace, may be used to resolve problems arising from task 
contention or system interlock. 
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Job Control Language Statements 



Job control statements are important in determining what functions 
IMDPRDMP is to perform. This section describes the JCL statements that 
have special significance in executing IMDPRDMP. For more complete 
information about using JCL statements, refer to the publication IBM 
System/36 Operating System: Job Control Language Reference, GC28-6704. 

JOB Statement 

initiates the job, and provides the opportunity to override the 
default region size. IMDPRDMP requires a minimum region size of 
64K. In most cases it executes more efficiently if its region size 
is larger than the minimum. 

EXEC Statement 

calls for the execution of IMDPRDMP and specifies certain actions 
that IMDPRDMP should take. The operands are: 

PGM= IMDPRDMP 



identifies IMDPRDMP to the system. This is the only required 
operand. 

PARM=' tn] [,T] [, FREEnnn] t ,LINECNT=nn] [ , S] [,ER=x] • 

n should be used only when the input is a dump data set. It 
specifies what IMDPRDMP should do if it detects a permanent I/O 
error or format error while processing a dump. 

— print the nucleus (and the system queue area in MVT) 

1 (or n not specified) — print the entire input data set. 

2 — read the next control card from the SYSIN data set, 
or request control statements from the operator. 

T specifies that the operator should be prompted to supply a 
title for the listing. If T is not specified, no prompting 
will occur. 



PRDMP 



FREEnnn specifies the size of the work space within IMDPRDMP* s 
region or partition, excluding the size of the root module, 
control module, service modules, and input buffer area. nnn is 
the number of K-bytes in the work space. The default is 8K. 
This value is usually adequate ; however, if the input data set 
is very large or complex, use the FREEnnn parameter to specify 
a larger work space. Also, if you need additional storage for a 
work area in an EDIT user program, use the FREEnnn parameter to 
reserve it. 

LINECNT=nn specifies the number of lines per page to be printed 
on the output listing. The value specified for nn may be any 
decimal integer greater than 10. If this parameter is omitted, 
LINECNT=58 is assumed. 
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S instructs IMDPRDMP to issue a message which the operator may 
reply to at any time during processing. In his reply, the 
operator may stop IMDPRDMP from processing the current input 
data set and start a new phase of IMDPRDMP execution. 

ER=x specifies what action the EDIT portion of IMDPRDMP should 
take if it detects an error in an exit or format routine while 
editing trace data from a dump or trace data set. The valid 
values of x and their meanings are: 

— EDIT will display in hexadecimal the record 
associated with the error and ignore the faulty routine in 
subsequent processing. If the error was in a format 
routine, all subsequent records that require processing by 
the same format routine will be ignored. If the error was 
in an exit routine, record formatting will continue. 

1 — EDIT will display in hexadecimal the record 
associated with the error and ignore the faulty routine in 
subsequent processing. If the error was in a format 
routine, all subsequent records that require processing by 
the same format routine will be dumped in hexadecimal. If 
the error was in an exit routine, record formatting will 
continue. 

2 — EDIT will display in hexadecimal the record 
associated with the error; EDIT will then terminate, and 
the next IMDPRDMP verb will be executed. 

3 — EDIT will allow ABEND to get control if a program 
check occurs in an exit or format routine. (If ER=3 is 
not specified, EDIT will issue the SPIE macro before 
entering the exit routine or format appendage and thus 
bypass ABEND processing.) If the recognized error is not 
a program check, the associated record will be dumped in 
hexadecimal; then EDIT will terminate and the next 
IMDPRDMP verb will be executed. 

If this value is not included in the PARM= parameter list, a 
value of ER=2 will be assumed. Note that ER=1 and ER=2 are the 
same for exit programs. 

Input DD Statements 

(TAPE ) DD Statement 
(anynamej 

defines an input dump or trace data set, which may reside on direct 
access storage or on tape. If the input data set is a dump, you can 
specify any ddname. Remember, however, that for ddnames other than 
TAPE, you must use a NEWDUMP control statement to identify the input 
data set. You can define any number of input data sets, as long as 
each is identified by a different ddname, and each ddname except 
TAPE is specified in a separate NEWDUMP control statement. 

If the input is a GTF trace data set, the ddname must be the 
same as the one specified in the DDNAME parameter of the EDIT 
control statement. You can define any number of trace data sets, 
provided that you identify each data set with a unique ddname and a 
separate EDIT control statement. 
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Here are some of the parameters that you may use to describe 
each input data set; note that you may also need other parameters to 
describe certain types of input data set. For more information about 
DD statement parameters, refer to the publication Job Control 
Language Reference, GC28-6704. 

* DSNAME=name (for direct access only) 
VOL=SER=volser 

UNlT=ddd 

* LABEL=((,NL)( (for tape only) 

(,SL) 
DISP=OLD 
DCB=(BUFNO=number,BLKSIZE=size) (for trace data sets only) 

* If the input is a trace data set on a standard label tape, 
you must include the DSNAME= parameter and code the LABEL= parameter 
as LABEL=(,SL). 

Use the DCB parameter to specify a greater blocksize or more 
input buffers, or both, if you think the default values will be 
inadequate. The default blocksize is 3500 bytes; the default 
number of buffers is 2. 

Do not specify a file sequence number in the LABEL= parameter 
if you intend to use the NEWTAPE or NEWDump FILESEQ=x control 
statement. 

If you omit the TAPE DD statement, IMDPRDMP assumes that the 
input data is in the SYSUT1 data set, and has the correct format. 

SYSWAPmn DD Statement 

defines the TSO swap data set(s). With one possible exception, the 
operands should be identical to those used in the TSO procedure; the 
exception is that if the TSO procedure is coded DISP= (NEW, KEEP) , the 
IMDPRDMP SYSWAPmn DD statment should be coded DISP= (OLD, KEEP) . For 
an explanation of the values for m and n, refer to the TSO Guide. 

SYS IN DD Statement 

defines the data set that contains the IMDPRDMP control statements. 
(If you want to enter control statements from the console, omit this 
statement . ) 

Output DD Statements 

PRINTER DD Statement 

defines the IMDPRDMP output data set. 
SYS PRINT DD Statement 

defines the IMDPRDMP message data set. 
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SYSUT1 DD Statement (optional if input is a dump data set on tape, not 
used if input is an external trace data set) 

defines a direct access work data set in which IMDPRDMP can collect 
input data. Performance improves when a SYSUT1 DD statement is 
included, because IMDPRDMP can reference dump information directly 
rather than searching for records in a sequential data set. 

Required parameters are : 

UNIT=ddd 

SPACE=(2052, (n,10)) 

n is calculated as (K/2048)+l, where K is the number of bytes of 
input data. 

SYSUT2 DD Statement 

identifies a data set into which IMDPRDMP may transfer the contents 
of the SYS1.DUMP data set when time will not permit immediate 
formatting and printing of the SYSl.DUMP data set. For more 
information about this function, refer to the section "Transferring 
a Dump Data Set" later in this chapter. 
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User Control Statements 



User control statements allow you to select specific dump formatting 
options and control basic operation of the IMDPRDMP program. 

IMDPRDMP will prompt you to supply control statements if no SYSIN 
data set exists, or if the supply of control statements in the SYSIN 
data set is exhausted before IMDPRDMP finds an END control statement. 

There are two kinds of user control statements: function control 

statements and format control statements. All the control statements 

are fully described below. Figure PRDMP-2 shows the complete format of 
the function control statements. 



Function Control Statements 


Standard Form 


Abbreviated Form 


CVT=(hhhhhh) 


C=fhhhhhhj 


NEWDUMP f*DDNAME=(TAPE H [ ,FILESEQ=nn] [ , DUMPSEQ=nn] 
[_ \anyname/J 


ND ["DD=fTAPE )"j [ ,F=nn] [ , D=nn] 
L \anynamef J 


NEWTAPE 


N 


GO 


G 


ONGO [QCBTRACE] [,LPAMAP] [, FORMAT] [,CVT=parm] 
( [, PRINT parm]) 
< [,TSO parm] > 
([,EDIT parm] J 


[Q] [,L] [,F] [,C=parm] 
([,-p parm] ) 
<[,TSO parm]V 
([,E parm] ) 


TITLE text 


T text 


END 


EN 


Format Control Statements 


Standard Form 


Abbreviated Form 


QCBTRACE 


Q 


LPAMAP 


L 


FORMAT 


F 


PRINT [ALL] [, CURRENT] [, NUCLEUS] [ , STORAGE= (parm) ] 
[,JOBNAME=(parm) ] [,F0 3] 


P [A] [,C] [,N] [,S=(parm)] 
(,J=(parm) ] [,F] 


TSO ["SYSTEM=(YES )" 
JuSERV 

L (no ). 


",USER=j PRINT j~ 

J storage/ 

J FORMAT i 
I NO ). 




TSO TS=(YES )"iru=| PRINT )" 
<USER> J STORAGE! 
L ' N0 )J /FORMAT ( 

L (no '. 




EDIT parm 


E parm 



Figure PRDMP-2. IMDPRDMP Function and Format Control Statements, 
Standard and Abbreviated Forms 



Function Control Statement 

The function control statements allow you to control certain operations 
of the IMDPRDMP program, such as input tape handling, dump listing 
titles, job termination, etc. 
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CVT=jhhhhhh\ 

allows you to specify the address of the communications vector table 
(CVT) in the main storage dump information. Use this if you think that 
the CVT pointer, in main storage location X'4C* of the system that was 
dumped, has been destroyed. If you omit this control statement, and 
IMDPRDMP cannot locate the CVT at location X'UC, it will scan the dump 
data set for unique identifiers associated with the CVT. If IMDPRDMP 
cannot locate the CVT by this scanning process, it will not format the 
input but will instead take action as specified by "n" in the parameter 
list supplied in the PARM= operand of the EXEC statement. Once the CVT 
has been located, it remains in effect until a NEWDUMP or NEWTAPE 
control statement is encountered. 



hhhhhh 



is a hexadecimal address specifying the location of the CVT in 
the input dump information. 



specifies that the location found at X'UC in the system on 
which IMDPRDMP is being executed can be used as a valid pointer 
to the CVT of the dumped system. 

NEWDUMP DDNAME= f TAP E ) [ , FILESEQ=n J [ , DUMPSEQ=n3 
\anynamej 

defines an input data set. If you want to process more than one 
input data set in a single execution of IMDPRDMP you must supply a 
separate NEWDUMP control statement for each. If there is only one 
input data set, NEWDUMP is not needed. 

NEWDUMP has three keyword parameters: 

DDNAME= 

gives the ddname of the input dump data set. This parameter is 
not required if the TAPE DD statement describes the input data 
set. 



FILES EQ; 



identifies the sequence number of an input data set that is one 
of several data sets on a single magnetic tape volume. If this 
parameter is omitted, IMDPRDMP assumes a default value of 
FILESEQ=1. 



DUMPS EQ= 



specifies the sequence number of a TSO dump that is one of 
several TSO dumps in a single data set. If this parameter is 
omitted, IMDRPDMP assumes a default value of DUMPSEQ=1. 



NEWTAPE 



has the same function as the NEWDUMP statement with parameters 
specified as DDNAME=TAPE, FILESEQ=1, and DUMPSEQ=1. Use it when the 
TAPE DD statement defines a single tape device on which are to be 
mounted multiple volumes, each containing one dump data set. 
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GO 

specifies a predefined set of format control statements. They are: 
QCBTRACE, LPAMAP, FORMAT, EDIT, and PRINT ALL. The effects of the GO 
control statement may be overridden by the ONGO control statement, 
which is described next. 

ONGO [QCBTRACE] [, LPAMAP] [,CVT=parm] [, FORMAT] [, PRINT parm] 
[,EDIT parm] [,TSO parm] 

overrides the predefined set of format control statements requested 
by the GO control statement. The new set of format control 
statements will remain in effect for all subsequent uses of the GO 
control statement, until IMDRPDMP ends or a new ONGO control 
statement is entered. An ONGO control statement with no parameters 
restores the original GO functions: QCBTRACE, LPAMAP, FORMAT, EDIT, 
and PRINT ALL. 

NOTE: The ONGO-GO combination is not required for IMDPRDMP execution. 
You need not specify GO unless you want to use a predefined set of 
IMDPRDMP options; you need not use ONGO unless you want to change 
that predefined set. Each IMDPRDMP control statement may be 
specified directly at any time. 

TITLE text 

specifies a title to be printed at the top of each page in the 
output listing. Use this statement if you do not expect IMDPRMDP to 
prompt you to supply title information; that is, if you did not 
specify T in the PARM= field of the EXEC statement or if you are not 
entering control statement from the console. You can specify any 
title up to 62 characters in length. 



END 



signals IMDPRMDMP to stop processing, close all data sets, and 
return control to the system control program. (If END is the only 
control statement specified, IMDPRDMP will load the data set defined 
by the SYSUT2 DD statement. See Example 1. ) 



Format Control Statements 



Format control statements allow you to choose particular parts of the 
input to be formatted and printed. 

QCBTRACE 

requests a trace of the queue control blocks (QCBs) in the input 
data set. 



LPAMAP 



causes IMDPRDMP to format and list the contents of the link pack 
area (MVT) or the resident reenterable load module area (MFT) in the 
input data set. If the input data set does not contain these areas, 
LPAMAP will be ignored. 
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FORMAT 

causes IMDPRDMP to format and print the contents of the major system 
control blocks in the input data set. 

PRINT [ALL] [ , CURRENT] [ , NUCLEUS] [ , STORAGE= ( addresses) ] 
[ , JOBNAME= ( jobnames ) ] [ , FO 3] 

indicates which parts of the input data set IMDPRDMP should print, 
according to several parameters. 



ALL 



instructs IMDPRDMP to print the nucleus, the system queue area, 
and all allocated regions of main storage in the input data 
set. This parameter also requests printing of the dumped 
system's registers. 



CURRENT 



instructs IMDPRDMP to print only the area of main storage that 
was associated with the current task when the input data set 
was created. This parameter also requests printing of the 
dumped system's registers. 

NUCLEUS 

instructs IMDPRDMP to print the nucleus portion of the input 
data set. If the input data set was taken from a system that 
was executing under MVT, the system queue area will also be 
printed. For the IBM System/360 Model 65 Multiprocessor, both 
the high and the low prefixes will be shown on the dump 
listing. 

STORAGE= (startaddrl,endaddrl, . . . [ ,startaddrn, endaddrn] ) 

allows you to supply beginning and ending addresses of areas in 
the input data set that you want printed. You may specify any 
number of pairs of hexadecimal addresses, so long as the 
beginning address in each pair is lower than the ending 
address. If you specify a beginning address and no ending 
address, IMDPRDMP prints the entire contents of main storage 
starting at the address you specify. If you do not specify any 
addresses, IMDPRDMP will print the entire contents of main 
storage, whether allocated or not. If you specify this 
parameter at all, IMDPRDMP will also print the dumped system's 
registers. 

JOBNAME= ( jobnamel, jobname2. . . , jobnamelO) 

allows you to limit the scope of the output listing to areas in 
main storage that are associated with specific jobs. You can 
specify up to ten jobnames. IMDPRDMP will print the areas 
associated with each job name in the order specified in the 
JOBNAME= parameter. 



F03 



instructs IMDPRDMP to print areas of main storage that were 
associated with a task terminated by the damage assessment 
routine (DAR) . 
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TSO 



"SYSTEM=(YES 
JUSER 
(NO 



,USER=( PRINT ] 
[STORAGE 
/FORMAT 

'no 1 



instructs IMDPRDMP to process the TSO dump data set and the TSO swap 
data sets. IMDPRDMP will not format the swap data sets unless you 
have defined them in SYSWAPmn DD statements. 

Two parameters allow you to limit the amount of formatting that 
IMDPRDMP will do. If you omit a parameter, IMDPRDMP will give you 
maximum formatting. 



SYSTEM= 



defines the extent of formatting for TSO system control blocks, 
The default value is SYSTEM=YES; it causes IMDPRDMP to format 
the following control blocks: 

TCB family for TSC 

TSCVT 

RCBs for each TS region 

Active TJBs 

SWAP CBs for each swap device 

Active TSBs 

User Main Storage Map. 

If you specify SYSTEM=USER, IMDPRDMP will format only active 
TJBs, active TSBs, and the User Main Storage Map. If you 
specify SYSTEM=NO, IMDPRDMP will not format any TSO system 
control blocks. 



USER= 

defines the extent of formatting for the TSO user region and 
the TSO user control blocks. The default is USER=PRINT, which 
causes IMDRPDMP to format both the region and the control 
blocks. USER=STORAGE requests only the region, USER=FORMAT 
requests only the control blocks. USER=NO requests no 
formatting of the user region or control blocks. 

EDIT Control Statement 

The EDIT control statement causes IMDPRDMP to obtain and process trace 
data created by the Generalized Trace Facility (GTF) . Like other 
control statements, it may be specified either from the operator's 
console or through cards in the input stream. 

Edit Keyword Parameters 

The keywords associated with the EDIT control statement are shown in 
Figure PRDMP-3; they are described on the next page. All EDIT keyword 
parameters are optional. 




PRDMP 
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EDIT 



[EXIT=pgmname] 

[", (DDNAME) =ddname"l 



[ , START= (ddd,hh.mm. ss) ] 

[,STOP=(ddd,hh.mm.ss) ] 

I", (JOBNAME) = ( jobnamel [ , jobname2] . . . [ , jobname5] )"] 

[,TCB=( address 1 [, address 2] . . . [, address 5] ) ] 
[,SYS] 



, [ 10 

IO=SIO 
JSIOIO 

L ' sio 



[=(cuu1 [,cuu2] . . . [,cuu50] ) ] 



r,rsvc n 

[_ ( S VC= ( s vcnuml [ , svcnum2 ]...[, s vcnum2 56] )/J 

[' (PI=(code1 [ ,code2] . . . [ ,codel5] [ ,SSM] )(J 

[,EXT] 

[,DSP] 

,USR=| ALL 

Osymboll 1 i [", (symbol 2 )~] ■ ■ • V,( symbol 2 Y\\ 

idvalue1> Jidvalue2> Jidvalue20> j 

idrangel) _ (idrange2J_ ( idrange20)J/ 



Figure PRDMP-3 



EXIT=pgmname 



Format of the EDIT Control Statement, Showing All 
Valid Keywords 



defines the program name of a user-written exit routine that will 
inspect all trace records when IMDPRDMP gives it control. If the 
routine does not exist or cannot be loaded successfully, EDIT 
execution will terminate and the next IMDPRDMP control statement 
will be read. 

DDNAME=ddname 

specifies the name of the DD statement that defines the input trace 
data set. If you omit this keyword, IMDPRDMP assumes that trace data 
exists in buffers in a dump of main storage, and therefore will not 
accept any other EDIT keywords except EXIT. You must include this 
parameter if you want to selectively edit data management trace 
records. 

START=(ddd,hh.mm.ss) 

STOP=(ddd, hh.mm.ss) 

These optional keywords specify that IMDPRDMP is to edit all trace 
records produced during the time of day indicated. If no START= 
time is specified, EDIT processing will begin at the beginning of 
the trace data set. If no STOP= time is specified, EDIT processing 
will continue to the end of the data set. If the trace data was 
recorded on an MFT system with no timer option, IMDPRDMP will ignore 
these keywords. 
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JOBNAME=( jobnamel] , [ r jobname2] [ f jobname5]) 

allows you to specify up to five 8-character jobnames for which EDIT 
will process trace data. If all the jobnames to be specified cannot 
fit on one line, close the first line with a right parenthesis 
followed by a comma; on the next line respecify the JOBNAME keyword 
with the additional jobnames. 

This keyword is not valid if SYSM data is to be edited. 

TCB=(addressl[,address2] . . . [,address53) 

allows you to specify addresses of up to five task control blocks 
for which EDIT should process trace data. The addresses must be 
specified as 1- to 6-digit hexadecimal addresses. If all addresses 
cannot fit on one line, close the first line with a right 
parenthesis followed by a comma; on the next line respecify the TCB 
keyword with the additional addresses. 

This keyword is not valid if SYSM data is to be edited. 

SYS 

This optional keyword requests EDIT to process all system event 
trace records — that is, SVC, SIO, 10, PI, EXT, and DSP. If no 
EDIT keyword except DDNAME, EXIT, START, STOP, JOBNAME, and/or TCB 
is specified, EDIT will assume SYS as the default. 



10 
SIO 

II0=SI0 
SI 0=10 



[=(cuul, [,cuu23 o . . [ ,cuu50] ) 3 



defines up to fifty different devices for which IO trace records, 
SIO trace records, or both should be formatted. If no specific 
devices are requested, all 10 and/or SIO trace records will be 
formatted. If any specific devices are specified, only trace 
records associated with those devices will be formatted and all 
others will be ignored. 

Devices should be specified as 3-digit device addresses. If 
all devices to be specified cannot fit on one line, close the first 
line with a right parenthesis followed by a comma; on the next line 
respecify the keyword with the remaining addresses. 



SVC 



SVC=(svcnuml [,svcnum23 . - . , [,svcnum256] 

defines up to 256 SVC trace records that EDIT is to format, 
is a 1- to 3-digit decimal SVC number. 



svcnum 



If no svcnum parameters are specified or if both SVC and SVC= 
are specified, all SVC trace records will be formatted. If any SVC 
numbers are specified, only trace records associated with those SVC 
numbers will be formatted; all others will be ignored. 

If all SVC numbers cannot fit on one line, close the first line 
with a right parenthesis followed by a comma; on the next line 
respecify the keyword with the remaining SVC numbers. 
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PI 

PI=(code[,code23... [,codel5] [,SSM3 

requests EDIT to format trace records associated with up to fifteen 
specified program interrupt codes. If no program interrupt codes 
are specified or if both PI and PI= are specified, all program 
interrupt trace records will be formatted. If any program interrupt 
codes are specified,, only those program interrupt trace records will 
be formatted; all others will be ignored. If SSM is specified, EDIT 
will format SSM interrupt trace records for data recorded on a Model 
65 Multiprocessing System. 

If all codes to be specified cannot fit on one line, close the 
first line with a right parenthesis followed by a comma; on the next 
line respecify the keyword with the remaining codes. 



EXT 



DSP 



requests that EDIT format all external interrupt trace records 



requests that EDIT format all dispatcher task-switch trace records. 



USR= I ALL 

, symbol 2 
, idvalue2 
,idrange2 



isymboll \ 
idvaluel[ 
idrangel) 



,symbol20 
,idvalue20 
, idrange20)_ 



specifies which user/subsystem trace records should be formatted; 
(user or subsystem trace records are created by the 3TF GTRACE 
macro.) You can specify up to 20 ID values, ranges or symbols 
representing single components Or subsystems. Idvalue is a 3-digit 
hexadecimal ID specified in the GTRACE macro when the records to be 
formatted were created. Idrange is a pair of idvalues defining a 
range of records to be formatted, for example, 

USR=( 010-040, BFD-BFF) . If you want to edit data management trace 
records, specify USR=DMA1. 

If ALL is specified alone or in combination with other 
parameters, all user or subsystem trace entries will be formatted. 
(See Figure PRDMP-4.) 

If all parameters cannot fit on one line, close the first line 
with a right parenthesis followed by a comma, making sure that any 
idrange specified is complete; on the next line respecify the USR= 
keyword and continue with the remaining parameters. 
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EDIT Parameter Defaults and Priorities 

All EDIT defaults depend on the presence or absence of the DDNAME= 
parameter . 

• If it is present, the input is an external trace data set. All 
parameters are valid. If none except DDNAME= are specified, EDIT 
assumes a default of SYS. 

• If it is absent, the input is a main storage dump containing trace 
buffers. No parameters except EXIT= are valid, since EDIT cannot 
select records from a dump. All records, both system and user, will 
be processed. If you attempt to select specific records, EDIT will 
prompt you to supply the missing DDNAME= parameter or terminate EDIT 
processing. 

Figure PRDMP-4 summarizes the priority and effect of those EDIT 
parameters that select records by trace event type. Any keyword shown 
in the table can be considered to include as subsets all the parameters 
shown indented below it; for example, SVC=svcnum is a subset of SVC, and 
SVC is a subset of SYS. Any parameter can override another parameter in 
the same set that has a lower priority. 

You should not combine any parameter with another parameter that can 
override it; for example, do not combine SIO with SIO=ddd. You can, 
however, combine parameters that are part of separate sets; for example, 
you can combine SIO=ddd with 10 and SVC, or SYS with USR=ALL. You can 
also combine any parameters that have the same priority; for example, 
you can combine SI0=aaa with SI0=I0=bbb. In this case the effect will 
be I0=bbb and S10=(aaa,bbb) . 

Note: START=, ST0P=, J0BNAME=, and TCB= have no effect on trace event 
selection. They merely exercise further selectivity over records 
already chosen by default or by by parameters that select system trace 
events. 
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EDIT Parameter Priorities 


Trace Events Selected 


1 


2 


3 


4 




SYS 








All SIO, 10, SVC, PI, DSP, and EXT 




SIO= 


10 

SIO 

10 


SI0=ddd 
SI0=I0=ddd 

I0=ddd 
I0=SI0=ddd 


All SIO and 10 
All SIO 

SIO for device (s) ddd 

SIO and 10 for device (s) ddd 
All 10 

10 for device (s) ddd 

10 and SIO for device (s) ddd 




SVC ' 






All SVCs 






SVC= 


mm 


Specified SVCs 




PI 






All Pis 






PI=c 


Dde 


Specified PI code(s) 




DSP 






All DSP 




EXT 






All EXT 


USR= 


ALL 






All USR 




USR= 


notall 




Specified USR 



Figure PRDMP-4. Priorities and Effects of EDIT Parameters Used to 
Select Records by Trace Event Type 

Combining Control Statements 

The following control statements may be combined freely with each other 
on a single card or in a single reply to a prompting message. They may 
be specified in any order. 

CVT=parm 

NEWTAPE 

QCBTRACE 

LPAMAP 

FORMAT 

EDIT (coded with no parameters) 

All other control statements are restricted; that is, no more than 
one may be specified on a single card or in a single reply to a 
prompting message. If a control statement from this group is combined 
with any of the control statements listed above, the restricted control 
statement must come last. 

Here are some examples of control statements combined correctly: 

LPAMAP, EDIT, P N 

F, QCBTRACE, EDIT DDNAME=TRACE , SVC , SI0=I0=ALL, PI 

F, P F 

Q,L,F,E,TS0 S=YES,U=N0 
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Allocating Space for the Output Data Set 



IMDPRDMP output is usually directed to a SYSOUT device; therefore in 
nost cases its output is stored temporarily on a direct access storage 
device from which it is later written to the printer. This temporary 
storage allows the user to specify space allocation and blocking factors 
that will enhance IMDPRDMP* s performance. 

(Note that if time is not critical and the output data set is very 
large, the output data set may be allocated directly to a printer. Do 
this by specifying the UNIT parameter in the PRINTER DD statement, for 
example UNIT=00E. ) 

Specifying the Maximum Output Block Size 

Since IMDPRDMP uses QSAM as the access method for the SYSOUT data set, 
you can improve performance by specifying the largest possible block 
size for the data set. The maximum block size within the limits of the 
track capacity of the output device can be calculated by the following 
method: Divide the maximum track capacity in bytes by the output record 
length, 121 bytes, and ignore any remainder. The quotient is the number 
of records per block. Multiply this number by 121 to find the maximum 
block size. 

To illustrate: A 2311 disk storage unit has a track capacity of 
3625 bytes. The IMDPRDMP output record length is 121 bytes. Thus the 
number of records per block is 29. This value multiplied by the output 
record length (121) gives the maximum block size, 3509 bytes. Code this 
value in the DCB= parameter of the PRINTER DD statement as follows: 

DCB= ( BLKS IZ E= 3 5 9 ) 

Increasing the Space Allocated to SYSOUT 

Depending on the number of lines to be printed, the amount of space 
normally allocated to a SYSOUT data set may not be enough to contain the 
entire formatted dump or trace listing. To eliminate this potential 
problem, allocate extra direct access storage space for the SYSOUT data 
set via the SPACE= operand in the PRINTER DD statement that represents 
the data set. This extra space may be expressed in terms of bytes, 
tracks, or cylinders. 



PRDMP 
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Use the table below to determine the approximate number of lines 
that will be printed in a dump listing. (The table does not include 
figures for the EDIT function of IMDPRDMP . ) 

STORAGE SIZE PRINTED LINES 

16K 500 

32K 1000 

64K 2000 

128K 4000 

256K 8000 

512K 16000 

1024K 32000 

Calculating Space Requirements by Block Size 

Each printed line is represented by a 121-byte record; the space 
requirement can therefore be expressed in bytes as the record length 
multipled by the number of records. As an example, the SPACE= operand 
for a 512K dump SYSOUT data set might be expressed as: 
SPACE=(121, (16000, 100)) . 

If a blocking factor was specified for this SYSOUT data set (as 
discussed above), the space allocation can be expressed in terms of 
block size. For example, if the block size has been calculated as 3509 
bytes (or a blocking factor of 29 records per block), the same 512K dump 
listing would require 552 blocks to contain all of the listing 
information. This block figure was calculated as follows: 

16000 Output records / 29 Records per block = 552 Blocks 

The PRINTER DD statement might then be expressed as: 

//PRINTER DD SYSOUT=X, 

// SPACE=( 3509, (552,10)), 

// UNIT=2311,DCB=(BLKSIZE=3509) 

Calculating Space Requirements for EDIT Output 

When GTF trace data is edited using the EDIT function of IMDPRDMP, the 
number of lines of output can be estimated provided the maximum GTF 
trace buffer size and the number of blocks to be edited are known. 
Figure PRDMP-5 shows the number of lines of EDIT output as a function of 
maximum buffer size (block size) and the type of trace. 

Editing Internal Trace Data 

To estimate the number of lines to be printed when GTF buffers are 
edited from a dump data set, use the following formula to determine the 
number of buffers: 

(GTF Region Size-llK) / Buffer Size = Number of Buffers 
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Then multiply the number of buffers by the number of lines per buffer as 
shown in Figure PRDMP-5. (Note that the size of the region in which GTF 
was running must be known.) 



Maximum Trace 




SYSM With 


Cor 


nprehensive 


Comprehensive Trace 


Buffer Size 


SYSM Trace 


User Time 


Stamp 




Trace 


With User Time Stamp 


1024 


25 


50 






30 


60 


2048 


50 


100 






60 


120 


3500 


65 


130 






110 


220 


4096 


100 


200 






120 


240 



Figure PRDMP-5. 



Number of Lines of EDIT Output per Buffer as a 
Function of Maximum Buffer Size and Trace Type 



To illustrate: if a GTF internal (SYSM) trace is to be edited from 
a stand-alone dump taken by IMDSADMP, and GTF had been running in a 20K 
region, then the buffer size is 1024 bytes (implied by the specification 
MODE=INT); thus 

Number of buffers = (20K-11K)/1K 

Number of buffers = 9 

Figure PRDMP-5 indicates that for a SYSM trace the number of lines per 
buffer is 25; thus 9 (25) or 225 is the expected number of printed 
lines. The PRINTER DD statement in this case might be expressed as 

//PRINTER DD SYS0UT=A, SPACE= (121, (225, 10) ) 



Editing an External Trace Data SET 

To estimate the number of lines to be printed when GTF data is edited 
from the trace data set on a direct access device, determine the number 
of blocks per track and multiply that value by the allocated number of 
tracks; the resulting value is the number of blocks per data set. 
Multiply that value by the number of lines per block as indicated in 
Figure PRDMP-5. 

For example: A comprehensive trace with user time stamps is to be 
edited from a data set that occupies 50 tracks of a device whose track 
capacity is 7200 bytes. The maximum blocksize for the trace 
(established by the IEFRDER DD statement in the GTF start procedure) is 
3500 bytes. Thus the number of blocks per track (in round figures) is 
2, and the number of blocks in the data set is 2(50) or 100. Figure 
PRDMP-5 indicates that for a comprehensive trace with user time stamps 
the number of lines per block is 220; thus the expected number of 
printed lines is 100(220) or 22000. 

In this case the PRINTER DD statement might be expressed as: 

//PRINTER DD SYSOUT=A, SPACE= (121, (22000, 100) ) 

If the trace data set is on a tape volume, you can estimate the 
maximum number of lines to be printed by calculating the number of 
blocks per foot of tape and multiplying by the length of the tape. 



PRDMP 
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Cataloged Procedure 



Figure PRDMP-6 shows the cataloged procedure, PRDMP, that IBM supplies 
for executing IMDPRDMP. 

//PRDMP PROC 

//DMP EXEC PGM= IMDPRDMP 

//SYS PRINT DD SYSOUT=A 

//TAPE DD DSNAME=SYS1.DUMP,DISP=0LD 

//PRINTER DD SYSOUT=A 

//SYSUT1 DD UNIT=SYSDA,SPACE=(20 52, (257, 64)) 

Figure PRDMP-6. The cataloged procedure PRDMP. 

The statements are explained below. 

EXEC Statement 

calls for the execution of IMDPRDMP. 
SYS PRINT DD Statement 

defines the IMDPRDMP message data set. 

TAPE DD Statement 

defines the input data set. Unless overridden with other data set 
names, this statement defines SYS1.DUMP as the input data set. 

PRINTER DD Statement 

defines the output data set. 
SYSUT1 DD Statement 

defines the work data set. 

Note that the SYSIN DD statement has been omitted. Unless this 
statement is supplied, IMDPRDMP will prompt the operator to enter 
control statements through the console. 
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PRDMP Output 



Figures PRDMP-7 through PRDMP-15 are samples of IMDPRDMP output. The 
formats are explained in detail in the Programmer's Guide to Debugging, 
GC28-6670. 



SAMPLE QCB TRACE MODULE IMDSADMP DATE 7/04/70 

**** QUEUE CONTROL BLOCK TRACE 



TIME 0-10 
* * * * 



PAGE 



MAJOR 024100 



NAME SYSDN 



MINOR 0239AO 

QEL 024068 

MINOR 023838 

QEL 023ED8 



NAME FF SYSl.LINKIIB 
TCB 023488 SHARED 

NAME FF SYS1.MACLIB 
TCB 02344 8 SHARED 



MAJOR 0235E8 NAME SYSIEFSD 

MINOR 0235C8 NAME FF Q5 

QEL 023208 TCB 023480 EXCLUSIVE 
QEL 023C10 TCB 023 8E0 EXCLUSIVE 



Figure PRDMP-7. Queue Control Block Trace Sample 




PRDMP 
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00 
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fU 
CO 
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MODULE IMDSADMP DATE 11/12/70 TIME 00.15 PAG5 0001 




* * 


* * 


LINK 


PACK 


AREA MAP **** 


NAME 


EPA 


STA 


LNGH 


TYPE 




IEELWAIT 


072418 


072418 


0003E8 


MAJOR 




IGG0209Z 


C74800 


C74800 


000400 


MAJOR 




IGG0201Z 


C74C00 


C74C00 


000400 


MAJOR 




IGG0201Y 


C75000 


C75000 


000400 


MAJOR 




IGG0200Z 


075400 


C75400 


000400 


MAJOR 




IGG0200Y 


C75800 


C75800 


000400 


MAJOR 




IGG0200H 


C75C00 


C75C00 


000400 


MAJOR 




IGG0200G 


076000 


C76000 


000400 


MAJOR 




IGG0200F 


076400 


076400 


000400 


MAJOR 




IGG0200A 


C76800 


076800 


000400 


MAJOR 




IGG0199M 


O76C0O 


076C00 


000400 


MAJOR 




IGG0196B 


C77000 


077000 


000400 


MAJOR 




IGG0196A 


C77400 


077400 


000400 


MAJOR 




IGG01917 


C77800 


C77800 


000400 


MAJOR 




IGG01911 


C77C00 


077COO 


000400 


MAJOR 




IGG01910 


C78000 


078000 


000400 


MAJOR 




IGG01910 


C78400 


078400 


000400 


MAJOR 




IGG0191G 


C78800 


C78800 


000400 


MAJOR 




IGG01910 


C78C00 


C78C00 


000400 


MAJOR 




IGG0191B 


C79000 


C79000 


000400 


MAJOR 




IGG0191A 


C79400 


C79400 


000400 


MAJOR 




IGG0190S 


C79800 


079800 


000400 


MAJOR 




IGG0190N 


079COO 


C79C00 


000400 


MAJOR 




IGG0190M 


C7A000 


07A000 


000400 


MAJOR 




IGG0190L 


C7A400 


C7A400 


000400 


MAJOR 




IGC0005E 


C7A800 


C7A800 


000400 


MAJOR 




IGC0002 


C7AC00 


07ACOO 


000400 


MAJOR 




IGCC001I 


07B360 


C7B360 


000400 


MAJOR 




IGG019CK 


C7CA00 


C7CA00 


000060 


MAJOR 




IGG019BC 


C7CA60 


C7CA60 


0000E8 


MAJOR 




IGG019BD 


07CB48 


C7CB48 


000128 


MAJOR 




IGG019AD 


C7CC70 


07CC70 


OOOOCO 


MAJOR 




IGG019AL 


C7CD30 


07CD30 


000158 


MAJOR 




IGG019AC 


07D848 


07D848 


0000E8 


MAJOR 




IGG019CA 


C7D930 


C7D930 


000088 


MAJOR 




IGG019CB 


C709B8 


C7D9B8 


000098 


MAJOR 




IGG019AG 


C7DA50 


C7DA50 


000090 


MAJOR 




IGG019BE 


C7DAE0 


C7DAE0 


000188 


MAJOR 




IGG019AM 


C7DC68 


070C68 


000078 


MAJOR 




IGG019AN 


C7DCE0 


C7DCE0 


000008 


MAJOR 




IGG019AV 


C7DDB8 


C70DB8 


000058 


MAJOR 




IGG019M0 


07DE10 


C7DE10 


OOOOFO 


MAJOR 




IGG019MB 


07B760 


07B760 


0010A0 


MAJOR 




IGG019MA 


C7CE88 


07CE88 


000978 


MAJOR 




IGG019CL 


C7E820 


07E820 


000040 


MAJOR 




IGG019CF 


C7DF00 


C7DF00 


000100 


MAJOR 




IGG019CE 


07E038 


07E038 


000088 


MAJOR 




IGG019AJ 


C7E0C0 


07E0C0 


000120 


MAJOR 




IGG019AI 


C7E1E0 


C7E1E0 


000080 


MAJOR 




IGG019BB 


C7E86C 


C7E860 


000058 


MAJOR 




IGG019BA 


C7E260 


C7E260 


000180 


MAJOR 





Figure PRDMP-8. Sample MVT Link Pack Area Map 
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MODULE IMDSADMP DATE 11/12/70 TIME 00.15 ">AGE 0029 


JOB 


J0B4 


STEP GO 


PROCSTEP STEP1 

***** CURREN1 


TASK ***** 




TCB 


02D400 


RBP 0002E410 


PIE 00000000 DEB 0002DABC 


TIO 0002E1FO 


CMP 00000000 TRN 00000000 






MSS 0002E770 


PK-FLG FOOOOOOO FLG 00001B1B 


LLS 0CO2E3E0 


JLB 00000000 JPQ 0002E3E8 






RG 0-7 OOOOOOCO OOOOC066 0002DFBC 00000000 0OO2D66C 


0002DLE8 0002E234 0002DBA8 






RG 8-15 0002DFAO 00000000 0002DFC8 0005DF08 4005DE56 


0005DF08 6007F060 60008342 






FSA 0006BF68 


TCB OOCOOOOO TME 00000000 


JST 0002D400 


NTC 00000000 OTC 0002D1E8 






LTC 00000000 


IQE OOCOOOOO ECB 0002DFC4 TSPR 00000000 


D-POE 0002E770 SQS 0002DA90 






STA COOOCOOO 


TCT 0002CF28 USR 00000000 


DAR 00000000 


RES 00000000 JSCB 0002E33C 


ACTIVE RBS 










PRB 


02E410 


RESV OCOOOCOO APSW 00000000 WC-SZ-STAB 00040082 <=L- 


•CDE 0002E5E8 PSW FFF50009 A005DEF3 






Q/TTR 00000000 WT-LNK 00020400 NM GO 


EPA 05DE50 


STA 05DE50 LN 0001B0 ATR1 OB 


MAIN 


STORAGE 










0-POE 0002E770 FIRST 0002E688 LAST 0002E688 






PQE 


02E688 


FFB 0005ECC0 
TCB 0002D1E8 


LFB CCC5E000 NPQ 00000000 PPQ 00000000 
RSI COOOFOOO RAD 0005D800 FLG 0000 




LOAD 


LIST 










COE 


02E3E8 


NM RETURNS 


USE 01 RESP 01 ATR1 OB EPA 


05DDC8 STA 


05DDC8 LN 000088 


COE 


02BB50 


NM IGG019CC 


USE 03 RESP 01 ATR1 BO EPA 


07E928 STA 


07E928 LN C000D8 


CDE 


02BB20 


NM IGG019CH 


USE 03 RESP 01 ATR1 BO EPA 


07E8B8 STA 


07E8B8 LN 000070 


CDE 


02B730 


NM IGG019AC 


LSE 02 PESP 01 ATR1 BO EPA 


07D848 STA 


07D848 LN 0000E8 


COE 


02BBFO 


NM IGG019AQ 


USE 03 RESP 01 ATR1 BO EPA 


07F020 STA 


07F020 LN 000078 


JOB 


PACK QUEUE 








COE 


02E3E8 


NM RETURNS 


USE 01 RESP NA ATR1 OB EPA 


05DDC8 STA 


05DDC8 LN 000088 


CDE 


02E5E8 


NM GO 


USE 01 RESP NA ATR1 OB EPA 


05DE50 STA 


05DE50 LN 0001B0 


DEB 


02DABC 


APPENDAGES 
PFX OOCOOOOO 


END OF EXT 07E8B8 S 10 000D72 
C5C00006 00010BE0 11000000 


PCI O0OD72 


CH END 000D72 AB END 000D72 






TCB 0402D400 


NDEB 1CC00O00 ASYN F8000000 


5PRG 00000000 


UPRG 0106BE18 PLST 1B0OO0OO DCB FF05DFA0 






AVT 0402CA98 












FM-UCB START END TRKS 










580026AC 00020003 COC20003 0001 






. TIQT 


02E1FO 


JOB J0B4 


STEP GO PROC STEP1 










OFFSET LN- 


STA CONAME TTR-STC STB-UCB 








0018 14040101 PGM=*.DD 00271500 800026AC 








002C 14040101 DUMMY 00271900 800026AC 





Figure PRDMP-9. Sample MVT Major Control Block Format 
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cn 
(D 

to 



mft dump usting 

job j 085 step go 



MOJULe IM05A0HP DATE U/U/70 7IHE 00,50 PAG§ 00U 



PROCSTEP STEP! 



***** CURRENT TASK ***** 



TCB 009148 RSP Q00C9228 PIE 00000000 
MSS 0000*210 PK-FLG 10000008 

RG 10-1 00071 7B0 OCO2A910 

RG 2-9 00000000 Q002C304 

FSA 08071730 TCB 00009348 

LTu OCOOCOOO 1QE 00000000 

STA CCOCGOOO TCT 00Q209A8 



DEB 00071634 TIO 00 071728 

FLG 000001E3 US 000712F8 

5002A826 9BC712B0 40Q2AS96 

0007176C 0000004C 00009148 

TME 00009228 PIB E0 019A88 

ECB OOOOOOOO XTC6 OOOOOOOO 

USR OOOOOOOO CAR OOOCOOOO 



CMP OOOOOOOO TRN eocccoco 

JLB OOOOOOOO JST OOC09148 
5CO07FD2 CCCOCOCC OOOCOUA 
000717F8 0CC71778 OOOCOOOO 

NTC OOOOOCCC CTC OOOOOOOO 
LP/FL E300000C RES OOOOOOOO 

RES COOOOCOO JSCB 00021284 



ACTIVE RBS 

PRd 02A800 NM GO 



SZ/STAB OC2C00C0 USE/EP 0002A820 PSW FF150080 9002A€7A Q OOOOOOOO WT-LNK 0QC09146 



IRB 009228 NM *GK0 ARY SZ/STA6 OC0E404C USE/EP 0002AS7E PSW FF150193 8002A8AA Q CCCC9288 hT-LNK CCC2A800 

RG 10-1 FA000048 00009228 OOOOOOOO 0002C304 0007176C 0000OC4C 00009148 C00717F8 

RG 2-9 00071778 COOOOOOO 000717BO 0002A910 5002A826 0C02A91O 13C0C0CC 4C0122EA 
EXTSA OOOOOOOO 000712BO O0C09228 00009148 

P/P BOUNDiUES 

HteR O002A3CU TO 00071800 HI ER 1 OOCOOOOO TO OOOOOOOO 



SZ C00088 
SZ COO0A8 



USE/EP 01071310 
USE/EP 010713BO 



LOAD LIST 



CRB 071300 NM DUMMYCL 
LPRB 071390 NM RETURNS 



JOB PACK QUEUE 
NOTHING IN JOB PACK 



DEB 071634 APPENDAGES ENO CF EXT 0229C0 SIO 003FF4 

PFX OCJCOOOO 05C00005 OOOiOBEO 11000000 
TcB 04009148 NOEB 1007150C ASYN F8C00000 
AVT 0407i6lO 

FM-UCB START ENO TRKS 

5800156C OC020003 00020C03 0001 

DEB 07150C APPENDAGES END OF EXT 0138F0 SIO 013922 

PFX OOOOOOOO 05C00007 000007E0 OFOOOOOO 
TCB 0CO0S148 NOEB OOOOOOOO ASYN A8000000 
AtfT 040136E4 

FM-UCB START ENO TRKS 

5a0015£C OOC40003 OCC50009 0011 



PCI 00 3FF4 CH END CC3FF4 AB END 003FF4 
SPRG OOOOOOOO UPRG 0107144C PLST E3CC0C00 

PCI 0136F8 CH END 013364 AB END C13922 
SPRG OOOOOOOO UPRG 010COCCC PLST E3CC0C00 



CCB 1F02A8B0 



CCB 0F071778 



riOT 071728 JOB JOB 5 STEP GO 

OFFSET LN-STA DDNAME 

0018 14040100 PGM=*.DD 

002C 14040100 DUMMY 



PRCC STEP1 

TTR-STC STB-UCB 

007D0CC0 800015EC 

007F0300 8000156C 



Figure PRDMP-10. Sample MFT Major Control Block Format 



o 

S3* 

£» 
n- 

(D 



o 



MODULE IMDSADMP DATE 11/12/70 TIME 00.12 



PAGE 000^ 



TSCVT 0DDA9C 



TJB 0OOLDCE8 
CUS OC04 
SAV OOODDB20 
102 000D3B50 
SLF OOOCDFIO 
SVQ CCCCOOOO 
OMP 0C0DD998 



RCB 0OODDFB8 
LUS OOOA 
ECB 000DDB14 
103 000D3E46 
TSC 0001ACD0 
ABN 000D1C20 
T06 0001A5D8 



RPT 000D9DD0 
NTJ OOOA 
SIA OOODDCDC 
D02 000D28C8 
SPL 0001B4E8 
D03 O0ODE880 



FLG 0000 
SZU 0030 
ICB 000D0C34 
LCQ 00000000 
RSZ 0028 
FLM OOOD<=040 



FL1 0000 
CTR 0001 
101 000D38C4 
TRB 00000000 
RSV 0000 
QTP 000DFD40 



SDC 00000000 
MUS OOOA 
TQF 00014676 
LPA 00000000 
SVT 00000000 
T08 OO0OEAD8 



RCB 0DDFB8 



UMSM 0DDFA8 



RCT 0001A7B8 
NMBR 01 
UTTMQ 0000 
PRG OEOOOOOO 
CON ID 00 

ADDR-tN 0A580C60 



ECB CC000001 
PKEY EO 
CUSE 0004 
PRG1 000A79D0 
RESV 000000 



DIECB 00000000 
UMSMN 04 
EXTNT 000A7F68 
PRG2 000A7F1C 



TJID 0004 
FLG 40 
UMSM 000DDFA8 
QPL 000A7F10 



RSIZE 004B 
FLG2 20 
SDCB OO0DE12O 
STECB 00000000 



LSOSZ 0005 
FBQE 01 
PQE 0001AC20 
RCOVR OBOOFFOO 



ADDR-LN 0CB80020 



ADOR-LN 00000000 



ADDR-LN OOOOOOCO 



SWAP DCB 000030 



OA5800 




STORAG 


0A5800 





00000000 


0A5820 





00000000 


0A584C 





ocoooooo 


0A5860 





cooooooo 


0A5880 





TO NEXT 


0A6C20 





0012CC02 


0A6C40 





000CCFA3 


0A6C60 





000A7788 


0A6C8C 





00000000 


0A6CA0 





OOOCOOOO 


0A6CC0 





00040COO 


0A6CE0 





COOOOOOO 



E KEY 
000A58C8 00CA7260 00000000 
OOCAFOOO 00000000 00000000 
OO0C1468 CCCCOOOC OCOOOOOO 
COOOOOOO CCCCOOOO 00000000 

LINE ADDRESS SAME AS ABOVE 
OCCOOOOO FFC40000 00OOCAF8 
0000C28C O0OA6D68 000A7700 
00C1C1C0 0OOD9DF4 OCOOOOOO 
OOOCOOOO CCCOOOOC OCOOOOOO 
00000000 OO0A7478 00000098 
CCCCCCCO OCCCOOOO 00000000 
OOOCOOOO CCCCOOOO 00000000 



000A5800 00002800 OOCA5820 000A5820 

0001A7B8 00028000 000A5800 00000000 

00000000 00000000 OOOOOOOO OCOOOOOO 

00000000 OOOOOOOO OOOOOOOO OOOOOOOO 

OOOOOOOO 000A7700 COOOOOOO OOOOOOOO 

4000A4B6 00000001 0OODDD18 000D9D00 

A000A5F8 9000A60C OOOOOOOO OOOOOOOO 

OOOOOOOO OOOOOOOO OOOOOOOO OOOOOOOO 

000CD710 OOOOOOOO 00124034 0OOOB834 

OOOOOOOO OOOOOOOO COOOOOOO OOOOOOOO 

OOOOOOCO OOOOOOOO COOOOOOO OOOOOOOO 



.0 

8.... 

.B 

.A. ...4 i 

p. 



Figure PRDMP-11. Sample TSO Control Block Format (Part 1 of 3) 



m 



to 
o 
to 



en 
CD 

< 

H- 
O 

CD 

> 
w 



(D 
M 
CD 
P) 

cn 
CD 





MODULE IMDSADMP DATE 


11/12/70 TIME 00.12 PAGE 0007 




***** TSO USER CONTROL BLOCKS 


***** 




####### 


*********** USER KGNOl TJID=0001 ****************** 


** 




TJB 0DDD18 


TSB 000D9DF4 ATTN 00 STAX 01 STAT 


00 STAT2 


00 EXTNT 000A7F68 




RCB 00CDCFB8 UMSM 000DDF08 SDCB 0O0DE120 UTTMQ 0002 RSTOR 


48 UMSMN 04 




USER KGNOl IPPB 00000000 NEWID 00 FLUSL 


00 TJID 


0001 MONI 00 




RSV CCOOOO 






UMSM 0DDF08 


AODR-LN 0A580C38 ADDR-LN 0A980058 ADDR-LN 0CB00028 


ADDR-LN 


00000000 


TS3 0D9DF4 


STAT 81 TJB 0DCD18 FLG1 00 WTSB OOOOOC 


LNSZ 


78 OTBFP 000000 




NOBF 00 CBFP 000000 BPKFL 00 ITBFP OOOOOC 


NITR 


01 IBFP ODAOFO 




CLEAR 00 QCB 0E1CC0 ECB 00000000 TJID 0001 


STCC 


0000 ATHLC, 0016 




ATNTC 0000 LNNO 00 0LNK 00 ASRCiE OOOC 


ATNCC 


0003 AUTOS 00000000 




"AUTOr 00000000 ERSDS 00000000 






**** THE FOLLOWING TJBX, TAXE ,PSCB ,TCB« S AND STORAGE ARE FROM THE SWAPPEO 


DATA SET 


***** 


TJBX 0A7F68 


XFST C00A7DAC XLAST 000A6D68 XDSE OD0A7320 XSVRB 


000A7700 


XRQE 00000000 XIQE 00000000 




TAXE 000A6CB0 XLECB 00000000 XPSWD RSV 


00000000 


XAIQE 00000000 XQPL 000A7=10 




XNQPE OOOA XNTCB 0002 XLQPL 0054 HBFL 


0000 


XACT 00000000 XAECB 00014534 




XKEYA 00CA7FB0 






JOB KGN01 


STEP KGNOl PROCSTEP STARTING 






TCB 0A7DA0 


RBP 000A7D18 PIE COOOOOOO DEB 00000000 TIO O00A7864 


CMP 00000000 TRN 00000000 




MSS 030A79A0 PK-FLG EOOOOOOO FLG 0001B8B8 LLS O0OA7EAO 


JLB 00000000 JPQ 000A7EB0 




RG 0-7 00000001 FFF58C74 0001A534 0001A500 0O0A751O 


000A7DA0 


00000000 00000001 




RG 8-15 OO0A737O FFFFFFF9 000A7564 000A6D68 600FEAB2 


000A7534 


400FEB30 600062FA 




FSA 0300C0C0 TCB 000A6D68 TME 00000000 JST O0OA7DA0 


NTC 00000000 OTC 0001A7B8 




LTC 000A6D68 IOE 00000000 ECB OOODDFBC TSPR 8000B823 


D-PQE 000A5810 SQS 000A6D40 




STA 200CC498 TCT O0CA73D8 USR 00000000 DAR 00001000 


RES 00000000 JSCB 000A7E00 


ACTIVE RBS 








DRB 0A7D18 


RESV COOOOOOO APSW 00000000 WC-SZ-STAB 00040083 FL-CDE 0001D5BC 


PSW FF050001 500FEC8A 




Q/TTR OCOCOOOO WT-LNK 010A7DA0 NM IEFSD263 EPA OFEABO 


STA OFEABO 


LN 000550 ATR1 B9 


MAIN STORAGE 








D-oQE 0OOA5810 FIRST OO0A582O LAST 000A5820 






PQE 0A5820 


FFB OCCCCOOO LFB OOOAFOOO NPQ OOOOOOCO PPQ 00000000 
TCB C001A7B8 RSI 00028000 RAD 000A5800 FLG 0000 







Figure PRDMP-11. Sample TSO Control Block Format (Part 2 of 3) 



o 

3* 
P) 

ft 
tt> 
H 



O 

















MODULE IMDSADMP DATE 11/12/70 TIME 00.12 PAGE 0010 


DEB 


0A74A4 


APPENDAGES END 


OF EXT 01516E SIO 01516C PCI 


0151DC CH END 0151A0 AB END 01516C 






PFX 00000000 C2CO0C0B 00003FE2 11000000 








TCB 050A6D68 NDEB 


01000000 


ASYN 69000000 SPRG 


00000000 UPRG 02000000 PLST B8000000 DCB EF0CCE64 






AVT 04015158 














FM-UCB START 


END 


TRKS 










50002AFO 0C61C000 


0C920013 


03E8 










50O02AB0 C09F0000 


OOC60013 


0320 






TIOT 


0A6E28 


JOB KGN01 STEP 


TMP 


PROC KGNP01 








OFFSET 


LN-STA 


DDNAME 


TTR-STC 


STB-UCB 








0018 


14C401C0 


SYSPRINT 


00491600 


80002570 








002C 


14040140 


SYSCCMD 


00480A00 


80002AF0 








0040 


14040100 




00481000 


8OO02AB0 








0054 


14040100 


SYSUCUMP 


00491800 


80002530 








0068 


14040100 


SYSUT1 


00481200 


80002530 








007C 


14040100 


SYSUT2 


004B0600 


80002570 








0090 


14040100 


BSLOUT 


00491A00 


800O25F0 








00A4 


14040100 


SNAPTAPE 


004C1100 


80002530 








C0B8 


14000010 


DD1 


C04B0800 


00000000 








oocc 


14000010 


DD2 


004B0C00 


00000000 








00E0 


14000010 


DD3 


004B0E00 


00000000 








00F4 


14000010 


DD4 


004E0100 


00000000 








0108 


140C0010 


DD5 


004E0300 


00000000 








one 


140C0010 


DD6 


004E0500 


00000000 








0130 


140C0010 


DD7 


004E0900 


00000000 








0144 


140C0010 


DD8 


004E0BOO 


00000000 




PSCB 


0A7B88 


USER 


KGN01 


USRL 


05 GPNM 


SYSDA 


ATR1 EOOO ATR2 0000 CPU 00018B00 






SWP 


C04C33FD 


LTIM 008A0560 TCPU 


00000000 


TSWP 00000000 TCON 00000000 TC01 00000000 






RLGB 


OCCA8700 


UPT 000A86F0 UPTL 


0010 


PSV1 0000 RSV2 COOOOCOO USE1 00000000 






USE2 


CCCCOOGC 










TAXE 


0A6C30 


TMFLD 


00 


PPSAV 0CD710 ABOPSW 00000000 WCSA 00 SIZE 12 STAB 403^- 






EP 


00C0B834 


LCPSW 00040000 ROPSW 00000 


3C2 USE 00 IOE 000000 WCF 00 






LINK 


000000 


GRO COOOOOOC GR1 


00000000 GR2 00000000 GR3 00000000 GR4 00000000 






GR5 


00000000 


GR6 OOOOOOCO GR7 


00000000 GR8 00000000 GR9 OOOOOOOC GR10 OOOOOOOC 






GR11 


00000000 


GR12 00000000 GR13 OCOCOOOO GR14 00000000 GR15 00000000 NIQE OOOOOOOC 






LNK 


000A6014 


PRM1 00000000 IRB 


00QIA6CB0 TCB 000A6CB0 TLNK 000A6D68 XPSW OOOOOOOC 






EXIT 


00000000 


STAT 00000000 PARM 000ABBF8 TAIE C00CCF7C IBUF OOOOOOOC USER '00000064 



Figure PRDMP-11. Sample TSO Control Block Format (Part 3 of 3) 



a 



O 



(D 

< 

O 
CD 

> 
H- 
& 
03 

















MODULE IMDSAOMP DATE 11/12/70 TIME 00.15 


PAGE 0032 












* * * * 


TCB SUM 


MARY * * 


* * 




JOB 


TCB 


STEP 
0085E8 CMP 


00000000 


NTC 


00000000 


OTC 00009CA0 


LTC 00000000 


PAGE 0004 




JOB 


TCB 


STEP 
008728 CMP 


OOOOOCOO 


NTC 


00000000 


OTC 00009CA0 


LTC 00000000 


PAGE 0005 




JGB 


TCB 


STEP 
008868 CMP 


00000000 


NTC 


00000000 


OTC 00009CA0 


LTC 00000000 


PAGE 0006 




JOB 


TCB 


STEP 
0089A8 CMP 


00000000 


NTC 


00000000 


OTC 00009CA0 


LTC 00000000 


PAGE 0007 




JOB 


TCB 


STEP 
008AE8 CMP 


00000000 


NTC 


00000000 


OTC 00009CA0 


LTC 00000000 


PAGE 0008 




JOB 


TCB 


STEP 
008C28 CMP 


OOOOOCOO 


NTC 


00000000 


OTC 00009CA0 


LTC 00000000 


PAGE 0009 




JOB 


TCB 


STEP 
008D68 CMP 


00000000 


NTC 


00000000 


OTC 00009CA0 


LTC 00000000 


PAGE 0010 




J3B 


TCB 


STEP 
008EA8 CMP 


00000 000 


NTC 


00000000 


OTC 00009CA0 


LTC 00000000 


PAGE 0011 




JOB 


TCB 


STEP 
008FE8 CMP 


00000000 


NTC 


00000000 


OTC 00009CAO 


LTC 00000000 


PAGE 0012 












_ 

















MODULE IMDSADMP DATE 11/12/70 TIME 00.15 


PAGE 0033 








* * * * 


TCB SUM 


MARY * * 


* * 






JOB 


MASTER STEP SCKEOULR 
TCB 009CA0 CMP OOOCOCOO 


NTC 


OOOOOOOO 


OTC OOOOOOOO 


LTC 0002E268 


PAGE 


002 2 




JOB 


MASTER STEP SCKEDULR 
TCB 0288C8 CMP 00000000 


NTC 


00009BA8 


OTC 00009CA0 


LTC OOOOOOOO 


PAGE 


0025 




JOB 


J0B4 STEP GO 
TCB 02E0F8 CMP 00000000 
TCB 02D1E8 CMP 00000000 
TCB 02D400 CMP OOOOOCOO 


NTC 
NTC 
NTC 


000288C8 
OOOOOOOO 
OOOOOOOO 


OTC 00009CA0 
OTC 0002E0F8 
OTC 0002D1E8 


LTC 0002D1E8 
LTC 0002D400 
LTC OOOOOOOO 


PAGE 
PAGE 
PAGE 


0027 
0028 
0029 




JOB 


WTR STEP CCE 

TCB 02E268 CMP OOOOOOOO 

TCB 02D108 CMP OOOOOOOO 


NTC 
NTC 


C002E0F8 
OOOOOOOO 


OTC 00009CAO 
OTC 0002E268 


LTC 0002D108 
LTC OOOOOOOO 


PAGE 
PAGE 


0030 

0031 J _^— 




^ 















Firgure PRDMP-12. Sample TCB Summary for MVT or MFT With Subtasking 



o 

t? 

T3 
ft 
CD 



to 
o 



IAFT 


DUMP LISTING 




* * * * x C 


MODULE IMOSADMP DATE 11/12/70 TIME C0.5C 
B SUMMARY **** 


PAGE 0C22 


JOB 


STEP 
TCB 008 778 CMP 


OOOOCCOC 


PAGE 0001 






JOB 


MASTER STEP SCHcDULR 
TCB 008358 CMP 00CO0000 


PAGE 0002 






joa 


STEP 
TCB 008938 CMP 


000CCC0C 


PAGE 0004 






JGd 


STEP 
TCB 008A18 CMP 


OOOCOOOC 


PAGE 0005 






joa 


MASTER STEP SCHEDULR 
TCB 008368 CMP 00C00C0C 


PAGE 0C06 






joa 


MASTER STEP SCHEDULR 
TCB 008C43 CMP 0000CC0C 


PAGE 0007 






joa 


kTR STEP PO 
TCB 038048 CMP 


OOOOCOOC 


PAGE 0C09 






jja 


STEP 

TCB 008F4d CMP 


OOCOOCOO 


PAGE 0010 






JOB 


JOB5 STEP GJ 
TCB 009148 CMP 


00000000 


PAGE 011 






JJ6 


STEP 
TCB 009348 CMP 


occcococ 


PAGE 0013 






jua 


STEP 

TCB 009548 CMP 


oooooccc 


PAGE 0014 






job 


STEP 
TCB- 009748 CMP 


oooccooc 


PAGE 0015 






joa 


STEP 
TCB C09948 CMP 


ooooococ 


PAGE 0016 






joa 


STEP 
TCB 009348 CMP 


OOCOOCOO 


PAGE 0017 






JOB 


STEP 
TCB 009048 CMP 


00000000 


PAGE 0018 






joa 


STEP 
TCB 009F43 CMP 


ooococoo 


PAGE 0019 






joa 


STEP 

TCB 00A148 CMP 


oooooooc 


PAGE 0020 






JOB 


STEP 
TCB 00A348 CMP 


OOOCOOOG 


PAGE 0021 







Figure PRDMP-13. Sample TCB /Nummary for MFT Without Subtasking 



i 



O 



en 
O 

Hi 

< 

O 

> 

& 
CO 



MODULE IMDSADMP DATE ll/l2/70 TIME 00.15 t>AGE 0001 



R 0-7 
R 8-15 
000000 
000020 
000040 
000060 
000080 
0000A0 
0000C0 
OOOOEO 
000100 
000120 
000160 
000180 
0001AO 
0001CO 
0001E0 
C00200 
000220 
C00240 
000260 
000280 
C002A0 
0002C0 
0002E0 
C00300 
000320 
000340 
000360 
000380 
0003A0 
C003C0 
0003E0 
000400 
C00420 
000440 
000460 
000480 
0004AO 
0004C0 
0004E0 
000500 
000520 
000540 
000560 
000580 
0005A0 
0005C0 
0005E0 
000600 
000620 
000640 
000660 
000680 
0006A0 
0006C0 



00000000 
00000000 
00000191 
FF040001 
000022E8 
982400C8 
310000A6 
00000000 
020000C8 
40404040 
61F0F161 
00000000 
000 00000 
FF060009 
00009A00 
000117E0 
OOOOOOCC 
000726D0 
00004E98 
5834002C 
30104770 
302291FF 
00041BAA 
5084927F 
071C1812 
91011001 
0F9C1000 
47500E2A 
4BA0508C 
91102000 
4770065C 
91082000 
066447F0 
040694E7 
50007031 
91082001 
471004D2 
D5017035 
9D006000 
00444780 
4BC05096 
20119101 
91027013 
001C58FF 
41E0ODA2 
06249602 
05AE9101 
05D658A2 
41C00664 
94DF2000 
507407FB 
600005AO 
04A005CC 
509A45E0 
20090041 
70069120 



000022C8 
00000000 
OO0O1CO0 
5000BBB2 
OCOOOOOO 
9D001000 
4CC00005 
00000000 
20000048 
40404040 
F9F94040 
00000000 
00000000 
80000000 
00009AF4 
00009BB4 
000729CO 
00067594 
00000000 
D5022015 
02724873 
700247EO 
43A7C00A 
2004501B 
58E00FC8 
47100352 
40105088 
91107C06 
50A00024 
471003E6 
58AC7030 
478003DA 
06249104 
20019110 
91012000 
471C0490 
D5017031 
A00C47C0 
47BC04A0 
8008945F 
41A07031 
20004780 
47800530 
000005EF 
94FE7006 
70064060 
70064780 
00189101 
41B00624 
58F3001C 
92000048 
88A00018 
4770068E 
075207F8 
471006E4 
00444710 



00000000 
00000000 
400020B4 
FFF500 04 
00002280 
00 0200 00 
08000080 
00000450 
C2C5D5C4 
40404040 
40404040 
00000000 
00000000 
0000018A 
00009968 
00000040 
00000000 
0006 5D40 
41500800 
30194770 
00229170 
0ED491A0 
89A00003 
000094FD 
07FE4180 
4C710002 
18A0D200 
47100DE6 
18B09620 
41A05020 
91042001 
50A05030 
20014780 
20014710 
47100432 
D5037033 
A0044770 
0490D201 
48A00044 
700691A0 
40A0C002 
051CD202 
58A00048 
47F005 5C 
94DF2000 
70044010 
0DD247F0 
20004710 
50A00048 
58FF0004 
91017006 
42A20010 
96A07006 
D2C37031 
18E096A0 
80C49608 



8000214A 
00000000 
6000002B 
A006E7C2 
00005E08 
00000003 
40000001 
00D20650 
40404040 
404040C6 
40404040 
00000000 
82000170 
018A018A 
000099B4 
00009B74 
0006F000 
00072798 
1A551821 
0ED491F0 
70124780 
50984790 
41DA52FC 
50984580 
02D245C0 
90231004 
1008A023 
48AD0006 
B02092F0 
0200A000 
471003C0 
92085030 
05D647F0 
05709102 
D2077030 
A0064740 
053E9104 
7035A008 
54A05058 
50984790 
43B07030 
C0U2019 
47F005E0 
47F00554 
47F00752 
701447F0 
040E9407 
05D258A2 
91202000 
50B05074 
47800638 
58900FC0 
43907004 
50004720 
70069106 
70069140 



00002280 
00000000 
08000080 
OOOOFFOO 
5A64336D 
9D001000 
05001C00 
445000B8 
40404040 
F0F8C1D7 
00000000 
00000000 
00040000 
FF000190 
00009AFO 
5000BCA4 
5006E596 
4006E7AE 
92825098 
00214780 
02824393 
029E58F0 
07FC4012 
02F647F0 
02A247F0 
5001000C 
45E00AD0 
07FAD502 
09771B99 
302045CO 
58A20010 
41A05028 
03889140 
70064710 
20201BAA 
053ED503 
30084780 
41A05038 
477006A8 
800818B6 
89B00004 
91082001 
45C00624 
47F00432 
58C20018 
04CA4910 
702C94DF 
001047FO 
47800604 
05EF47F0 
91102001 
05B91B99 
1A994079 
070C58A0 
00454770 
0044071E 



OOOOOOOA 
00000000 
40000001 
00000000 
48100002 
47700070 
40000500 
47F0006C 
40404040 
D9F7F040 
00000000 
00000000 
00036D18 
FF000190 
80009B74 
6000A57A 
000729B8 
0001828C 
1B114010 
025A45E0 
001C43A2 
0FC445EF 
001ED708 
02E247F0 
03444810 
92001004 
91EF7006 
20150FD1 
58A00FBC 
05E407BC 
91012000 
D200502D 
702C4710 
04D241A0 
43A70030 
7033A00A 
0490D501 
41B00578 
96A27006 
88B00008 
439B3020 
4780051C 
077C96A6 
41E00960 
47F0051C 
702A4770 
200047FO 
05EOD200 
910C402C 
061E41E0 
4710063E 
40607004 
52F00600 
004841A0 
0F8C9110 
91840044 



00000000 
00000000 
FFE50000 
FF060009 
412 000CO 
91030044 
O6OO1CO0 
D2002000 
40404040 
F0F04BF1 
00000000 
00000000 
00000000 
00000001 
00009ADO 
00000030 
A006E740 
00000000 
50881804 
0E681B99 
0O2 089A0 
000041CO 
20082008 
02EA4700 
0F9C1211 
D300100C 
47708008 
47800308 
5090A000 
48A00044 
478003C0 
701850A0 
05929101 
703140A0 
89A00004 
4720053E 
7035A008 
45C005E8 
D2062009 
89B00002 
4290C00D 
9618C00D 
700647F0 
47F00564 
D5037031 
0DD69148 
C40E9110 
50082018 
47800624 
C96447F0 
03000048 
40107014 
700C509A 
A00850AO 
00444780 
47808008 



00000000 
400020B4 
90 0432B6 
80 000000 
50200048 
4750007C 
000004BO 
00084040 
40404040 
F140F1F4 
00000000 
00000000 
00000000 
FFFF6528 
4000BB62 
0006F9F4 
00000001 
00000000 
58420014 
18A991FE 
9000487A 
02B258B2 
D4032000 
000045E0 
4740035C 
0021D201 
91FF0FB0 
58A00024 
47FC02E2 
54A05058 
58A20018 
004841C0 
70064770 
50 3AD203 
41AA3020 
91027013 
4740048A 
47700688 
00419104 
48CB52D4 
D202C011 
50C00048 
066C58F3 
92422004 
50004770 
702C4710 
20004710 
41A05008 
943F402C 
075258BO 
100C9COO 
58A02010 
D700700C 
0040D206 
0714945F 
41808004 
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Figure PRDMP-14. Sample Dump - General Format 
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EXTERNAL TRACE - 


DD TRACEDD 






PAGE 0002 


*** 


DATE 


DAY 307 YEAR 


1971 TIME 


11 


.15.00 
















**# 


DSP 




RES PSW 


FF 060350 


80000000 


JOBN 


N/A 


MODN 


WAITTCB 


NUTClB 00013220 


PRTY 


00 












CSW 


0005A768 


0C000000 


RQE 4 45 42 314 


00 05A6F8 1B05A71C RQE 


TCB 0003D3B8 SENS 00200040 






DSP 




BES PSW 


FF040001 


4000E934 


JOBN 


LISTPDS 


MODN 


SVC-551F 


NUTCB 


0003D3B8 


PRTY 


1B 








SVC 


010 


OLD PSW 


FF04 000A 


4000EA98 


JOBN 


IISTPDS 


MODN 


SVC-551F 


OLTCB 


0003D3B8 


R15/R0 


0005A750 


00000008 


R1 


8000EA96 


SVC 


007 


CLD PSW 
PLIST 


FF040007 
8005A7B8 


600223C6 
00000000 


JOBN 
NAME 


LISTPDS 
IFG0551H 


MODN 


SVC-551F 


OLTCB 


0003D3B8 


R 1 5/R 


0005A7B0 


0005A6F4 


R1 


0005A5D8 


SVC 


003 


OLD PSW 


000400 03 


60011D78 


JOBN 


LISTPDS 


MODN 


SVC- RES 


OLTCB 


0003D338 


R 1 5/R 


0000EBD0 


0005A6F4 


R1 


0005A5D8 


DSP 




EES PSW 


FF040007 


0OO0EBD0 


JOBN 


LISTPDS 


MODN 


SVC-551H 


NUTCB 


0003D3B8 


PRTY 


1B 








SVC 


007 


OLD PSW 

PLIST 


FF 040007 
8005A7B8 


600223C6 
00000000 


JOBN 

NAME 


IISTPDS 
IFG0553P 


MODN 


SVC-551H 


OLTCB 


0003D3B8 


R15/R0 


0005A7B0 


0005A6F4 


R1 


0005A5D8 


SVC 


003 


OLD PSW 


00040003 


60011D78 


JOBN 


LISTPDS 


MODN 


SVC- RES 


OLTCB 


00 03D3B8 


R15/R0 


0000F018 


0005A6F4 


R1 


0005A5D8 


DSP 




RES PSW 


FF040007 


0000F018 


JOBN 


IISTPDS 


MODN 


SVC-553P 


NUTCB 


0003D3B8 


PRTY 


1B 








SVC 


007 


OLD PSW 
PLIST 


FF040007 
8005A7B8 


600223C6 
00000000 


JOBN 
NAME 


LISTPDS 
IFG0 552X 


MODN 


SVC-553P 


OLTCB 


0003D3B8 


R15/R0 


0005A7BO 


0005A6F4 


R1 


0005A5D8 


SVC 


003 


OLD PSW 


000400 03 


60011D78 


JOBN 


LISTPDS 


MODN 


SVC- "RES 


OLTCB 


0003D3B8 


R15/R0 


0000F460 


0005A6F4 


R1 


0005A5D8 


DSP 




EES PSW 


FF040007 


0000F460 


JOBN 


LISTPDS 


MODN 


SVC-552X 


NUTCB 


0003D3B8 


PRTY 


1B 








SVC 


010 


OLD PSW 


FF04000A 


4000F73E 


JOBN 


LISTPDS 


MODN 


SVC-552X 


OLTCB 


0003D3B8 


R15/R0 


00048DEE 


00000008 


R1 


0005A5D8 


SVC 


010 


OLD PSW 


FF04000A 


4000F6C2 


JOBN 


LISTPDS 


MODN 


SVC-552X 


OLTCB 


0003D3B8 


R15/R0 


00048DEE 


00000218 


R1 


0005A5E0 


SVC 


003 


OLD PSW 


FF 04 0003 


5000F6CA 


JOBN 


LISTPDS 


MODN 


SVC-552X 


OLTCB 


0003D3B8 


R15/R0 


00000000 


00000218 


R1 


0005A5E0 


DSP 




RES PSW 


FFC50037 


60048DEE 


JOBN 


LISTPDS 


MODN 


IEHLIST 


NUTCB 


0003D3B8 


PRTY 


1B 








SVC 


000 


OLD PSW 


FFC500 00 


400FCD5E 


JOBN 


LISTPDS 


MODN 


IEHLIST 


OLTCB 


0003D3B8 


R15/R0 


010FCAC8 


00059D40 


R1 


00059D18 






DDNAME 


DDA 


DCB 000476F8 


DEB 0003CF44 


















SIO 


350 


CC 


CAW 


C000A568 


JOBN 


LISTPDS 






OLTCB 


0003D3B8 
















CSW 


0005A768 


OCOOOOOO 


RQE 4434354C 


00059D18 1B03CF44 RQE 


TCB C003D3B8 










SVC 


001 


OLD PSW 
PLIST 


FFC500 01 
0004913C 


400FC548 


JOBN 


LISTPDS 


MODN 


IEHLIST 


OLTCB 


0003D3B8 


R 1 5/R 


0O0FC52O 


00000001 


R1 


0004913C 


DSP 




RES PSW 


FF060236 


80000000 


JOBN 


N/A 


MODN 


WAITTCB 


NUTCB 


00013220 


PRTY 


00 








I/O 


350 


OLD PSW 


FF060350 


80000000 


JOBN 


LISTPDS 


DDNM 


DDA 


OLTCB 


00013223 
















CSW 


C0059D68 


0E400008 


RQE 4434354C 


00059D18 1B03CF44 RQE 


TCB C003D3B8 SENS 00001800 






DSP 




RES PSW 


FFC500 01 


400FC548 


JOBN 


LISTPDS 


MODN 


IEHLIST 


NUTCB 


0003D3B8 


PRTY 


1B 








SVC 


055 


OLD PSW 

DDNAME 


FFC50037 
DDA 


600FC55E 


JOBN 


LISTPDS 


MODN 


IEHLIST 


OLTCB 


0003D3B8 


R15/R0 


OO0OCF9A 


00059D10 


R1 


000476F8 


SVC 


010 


OLD PSW 


FF04000A 


400F9DC6 


JOBN 


LISTPDS 


MODN 


SVC- RES 


OLTCB 


0003D3B8 


R15/R0 


OO0OCF9A 


00000218 


R1 


80 0F9DBC 


SVC 


007 


OLD PSW 
PLIST 


FF040007 
8005A7B8 


400F9E1C 
00000000 


JOBN 
NAME 


IISTPDS 
IFG0551F 


MODN 


SVC- RES 


OLTCB 


0003D3B8 


R15/R0 


0005A7B0 


00000218 


R1 


000476F8 


SVC 


003 


OLD PSW 


00040003 


60011D78 


JOBN 


LISTPDS 


MODN 


SVC- RES 


OLTCB 


0003D3B8 


R15/R0 


OO0OE788 


00000218 


R1 


000476F8 


DSP 




RES PSW 


FF040007 


0000E788 


JOBN 


IISTPDS 


MODN 


SVC-551F 


NUTCB 


0003D3B8 


PRTY 


1B 








DSP 




RES PSW 


FF040283 


8000E788 


JOBN 


LISTPDS 


MODN 


SVC-551F 


NUTCB 


0003D3B8 


PRTY 


1B 








SVC 


00 


OLD PSW 


FF040000 


4000E92A 


JOBN 


IISTPDS 


MODN 


SVC-551F 


OLTCB 


0003D3B8 


R15/R0 


0703D3B8 


00221600 


R1 


0005A6F8 






DDNAHE 


N/A 


DCB 0005A720 


DEB 0005A71C 


















SIO 


23 6 


CC 


CAW 


00006550 


JOBN 


LISTPDS 






OLTCB 


0003D3B8 
















CSW 


0006E6E8 


OCOOOOOO 


RQE 4 4542314 


0005A6F8 1B05A71C RQE 


TCB 0003D3B8 










SIO 


23 6 


CC 


CAW 


00006670 


JOBN 


LISTPDS 






OLTCB 


0003D3B8 
















CSW 


00006558 


OCOOOOOO 


RQE 44542314 


0005A6F8 1B05A71C RQE 


TCB 0003D3B8 










SVC 


001 


OLD PSW 
PLIST 


FF040001 
0005A6F4 


4000E934 


JOBN 


LISTPDS 


MODN 


SVC-551F 


OLTCB 


0003D3B8 


R15/R0 


00005EDA 


00000001 


R1 


0005A6F4 


DSP 




RES PSW 


FF060350 


80000000 


JOBN 


N/A 


MODN 


WAITTCB 


NUTCB 


00013220 


PRTY 


00 








I/O 


236 


OLD PSW 


FF060236 


80000000 


JOBN 


LISTPDS 


DDNM 


N/A 


OLTCB 


00013220 
















CSW 


0005A76 8 


OCOOOOOO 


RQE 44542314 


0005 A6F8 1B05A71C RQE 


TCB 0003D3B8 SENS 00200040 






DSP 




RES PSW 


FF04 00 01 


4000E934 


JOBN 


LISTPDS 


MODN 


SVC-551F 


NUTCB 


0003D3B8 


PRTY 


1B 








SVC 


010 


OLD PSW 


FF04000A 


4000EA98 


JOBN 


LISTPDS 


MODN 


SVC-551F 


OLTCB 


0003D3B8 


R15/R0 


0005A750 


00000008 


R1 


8000EA96 



Figure PRDMP-15. Sample EDIT for Trace Data Set 
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JCL and Control Statement Examples 



The following examples illustrate some of the functions that IMDPRDMP 
can perform. 

Example 1: Using the Cataloged Procedure 

IBM supplies a cataloged procedure, called PRDMP, that defines the 
input and output data sets and a work data set for IMDPRDMP. This 
example shows how to use the cataloged procedure. 

MSGLEVEL=(1,1) 
PROC=PRDMP , PARM=DMP=T 



//PROCDMP 


JOB 


// 


EXEC 


//DMP.SYSIN 


DD 


GO 




END 




/* 




In this exampl 


e: 


EXEC Statement 



calls the cataloged procedure, and requests prompting for a dump 
title. 

DMP.SYSIN DD Statement 

defines the data set that contains the IMDRPDMP control statements. 
The data set follows immediately. 

GO Control Statement 

requests formatting and printing according the the QCBTRACE, LPAMAP, 
FORMAT, EDIT, and PRINT ALL control statements. 

END Control Statement 

terminates IMDPRDMP processing. 
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Example 2: Tranferring a Dump Data Set 

If you need to clear the SYS1.DUMP data set quickly to make room for 
more dump information, you can use IMDPRDMP to transfer its contents to 
another data set- This new data set is not formatted or printed during 
this execution of IMDPRDMP, but it can be used as input later. 

This example shows how to transfer the SYS1.DUMP data set, which 
ordinarily is a cataloged data set on direct access storage, to a tape 
volume described by the SYSUT2 DD statement. 

MSGLEVEL=(1,1> 

PGM= IMDPRDMP 

SYSQUT=A 

SYSOUT=A 

DSNAME=SYS1. DUMP, DISP=QLD 

UN IT= 24 , VOL=SER=DUMP, LABEL= ( , ML> , 



/* 



//CLEAR 


JOB 


// 


EXEC 


//SYSPRINT 


DD 


//PRINTER 


DD 


//TAPE 


DD 


//SYSUT2 


DD 


// DISP= 


=NEW 


//SYS IN 


DD 


END 





In this example: 

SYSPRINT BD Statement 

defines the message data set. 

PRINTER DD Statement 

defines the data set to which IMDPRDMP ordinarily directs its 
output. This statement must be included, even though its function 
is not used in this application. 

TAPE DD Statement 

defines the input data set, SYS1.DUMP. 

SYSUI2 DD Statement 

defines the data set to which the contents of SYSl.DUMP will be 
transferred 

SYS IN DD Statement 

defines the data set that contains the IMDPRDMP control statements. 
The data set follows immediately. 

END Control Statement 

terminates IMDPRDMP processing. Note that this is the only IMDPRDMP 
control statement needed. 
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//NOLINK 


JOB 


// 


EXEC 


//SYSPRINT 


DD 


//PRINTER 


DD 


//TAPE 


DD 



Example 3: Processing Multiple Data Sets 

IMDPRDMP can process any number of input data sets in a single 
execution, provided that each data set is properly defined by both DD 
statements and control statements. This example shows how to process 
three data sets in the same execution, two of which are on the same tape 
volume. 

MSGLEVEL=(1, 1) 
PGM= IMDPRDMP , PARM=T 
SYSOUT=A 

SYS0UT=A,SPACE=(121, (1600,100)) 
UNIT=2400 , VOL=SER=DPTAPE, 
// LABEL= ( , NL) , DISP=OLD 

//TODAYDMP DD UNIT=SYSDA, VOL=SER=DPDADMP, 
// DSNAME=DMPDS,DISP=OLD 

//SYSUT1 DD UNIT=SYSDA,DISP=(NEW, DELETE) , 
// SPACE=(2052, (257,10)) 
//SYSIN DD * 
ONGO Q,F,P A 

GO 

NEWDUMP FILESEQ=2 
GO 

NEWDUMP DDNAME=TODAYDMP 
ONGO 
GO 
END 
/* 

In this example: 

EXEC Statement 

invokes IMDPRDMP and requests that the operator be prompted for a 
dump title. 

SYSPRINT DD Statement 

defines the message data set. 
PRINTER DD Statement 

defines the output data set. 
TAPE DD Statement 

defines two input data sets on the same tape volume. 
TODAYDMP DD Statement 

identifies an input data set on a direct access volume. 

SYSUT1 DD Statement 

defines the IMDPRDMP work data set; it is required in this example 
because one of the input data sets is on a direct access volume. 

SYSIN DD Statement 

defines the data set containing the control statements. The data 
set follows immediately. 
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ONGO Control Statement with Q, F # and P A parameters 

alters the default parameters for all subsequent GO statements by 
deleting the LPAMAP and EDIT parameters. 

GO Control Statement 

instructs IMDPRDMP to process the first data set on the volume 
described by the TAPE DD statement. 

NEWDUMP Control Statement with FILESEQ=2 

identifies the second data set to be processed. Since no DDNAME= 
parameter is specified, IMDPRDMP assumes that the data set resides 
on the volume described by the TAPE DD statement. FILESEQ=2 
specifies that the second data set on the volume should be 
processed. 

GO Control Statement 

instructs IMDPRDMP to process the data set described by the NEWDUMP 
control statement. 

NEWDUMP Control Statement with DDNAME=TODAYDMP 

identifies the third data set to be processed. DDNAME=TODAYDMP 
specifies that the data set is the one described by the TODAYDMP DD 
statement . 

ONGO Control Statement with No Parameters 

restores the original default parameters for the GO control 
statement. 



GO Control Statement 

instructs IMDPRDMP to process the data set described by the last 
NEWDUMP control statement. The original default parameters will be 
used. 

END Statement 

terminates IMDPRDMP processing. 
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//TSODUMP 


JOB 


// 


EXEC 


//SYS PRINT 


DD 


//PRINTER 


DD 


//TAPE 


DD 



Example 4: Processing a TSO Dump 

IMDPRDMP can produce a complete dump of a TSO system by merging the 
system dump data set with the TSO swap data sets and formatting and 
printing the resulting data set. This example shows how to request a 
TSO dump. 

MSGLEVEL=(1,1) 
PGM= IMDPRDMP 
SYSOUT=A 

SYS0UT=A f SPACE=(121 # (32000, 100) > 
UNIT=2400 f VOL=SER=DUMP, 
// LABEL= ( , NL) , DISP=OLD 

//SYSUTl DD UNIT=SYSDA, DISP=( NEW, DELETE) , 
// SPACE= (2052, (513,10)) 

//SYSWAPOO DD DSNAME=SYSl. SWAP.D1100, UNIT=2311, 
// VOL=SER=SWAP00,DISP=OLD 
//SYS IN DD * 
LPAMAP 
FORMAT 
PRINT ALL 
TSO 
END 
/* 

In this example: 

PRINTER DD Statement 

defines a very large output data set. If you prefer not to allocate 
so much space to SYSOUT=A, you can direct IMDPRDMP* s output directly 
to a printer by coding this statement as: 

//PRINTER DD UNIT=printeraddress 

CAUTION: In a multiprogramming environment conflicts with the 
system writers may arise if the output data set is allocated 
directly to a printer. 

TAPE DD Statement 

defines the input dump data set. 

SYSUT1 DD Statement 

defines the IMDPRDMP work data set. Although it is not required in 
this example, it has been included to reduce IMDPRDMP processing 
time. 

SYSWAPOO DD Statement 

defines the swap data set for this particular TSO system. If this 
system had more than one swap data set, each one would have to be 
defined on a separate SYSWAPnn DD statement. 

SYS IN DD Statement 

defines the data set containing the IMDPRDMP control statements. 
The data set follows immediately. 



212 Service Aids (Release 21) 



LPAMAP Control Statement 

requests a map of the link pack area of the dumped system. 

FORMAT Control Statement 

requests that the major control blocks of the dumped system be 
formatted and printed. 

PRINT Control Statement with the ALL Parameter 

requests printing of the nucleus, system queue area, and all 
allocated regions of main storage in the dumped system. 

ISO Control Statement with No Parameters 

requests formatting and printing of all TSO system and user control 
blocks and TSO user regions. 

END Control Statement 

terminates processing. 

Note that the GO control statement is not used in this example. 

Example 5: Recording the TSO Swap Data Set 

If the TSO subsystem fails and must be restarted, or if the operating 
system fails while TSO is being used, the TSO swap data sets must be 
recorded so that the failure may be diagnosed. The fastest way to do 
this is to restart the operating system, if necessary, and use IMDPRDMP 
to store the swap data set on tape before restarting TSO. Later, if the 
failure cannot be diagnosed solely by analyzing the main storage dump 
that was produce when the failure occurred, the swap data set that was 
stored on tape may be printed using IEBPTPCH. 

This example shows how to use IMDPRDMP to store the swap data set and 
how to use IEBPTPCH to print it later. 

MSGLEVEL=(1, 1) 
PGM=IMDPRDMP , REGION=200K 
SYSOUT=A 

UNIT=2400, VOL=SER=SCRTCH, 
// DIS P=( NEW, KEEP ), L ABEL= (, NL) , 

// DCB=(BLKSIZE=1210 ,LRECL=121,RECFM=FB,BUFNO=100,OPTCD=C) 
//TAPE DD UNIT=2400,VOL=SER=DUMP # 

// DISP= (OLD, KEEP), LABEL=(,NL) 

//SYSUTl DD UNIT=SYSDA,DISP= (NEW, DELETE) , 

// SPACE=( 2052, (513,10)) 

//SYSWAP00 DD DSN=SYSl.SWAP00,VOL=SER=SWAP00, 

// DISP= (OLD, KEEP), UNIT=2314 

//SYSWAP01 DD DSN=SYS1.SWAP01,VOL=SER=SWAP01, 

// DISP=(OLD,KEEP),UNIT=2314 
//SYS IN DD * 

TSO 
END 
/* 



//SWAPDUMP 


JOB 


// 


EXEC 


//SYS PRINT 


DD 


//PRINTER 


DD 



PRDMP 
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************************* RESTART TSO *************************** 



//PRNTSWAP 


JOB 


MSGLEVEL=(1, 1) 


// 


EXEC 


PGM=IEBPTPCH 


//SYSPRINT 


DD 


SYSOUT=A 


//SYSUTl 


DD 


UNIT=2400, VOL=SER=SWPDMP , 



// DISP= ( OLD, KEEP ) , L ABEL= ( , NL) , 

// DCB=(BLKSIZE=1210 ,LRECL=121,RECFM=FB) 

//SYSUT2 DD UNIT=1403 

//SYS IN DD * 

PRINT PREFORM=M 
/* 

This example is actually composed of two job steps. In the IMDPRDMP 
step: 

EXEC Statement 

invokes IMDPRDMP and overrides the default region size with a value 
of 200K. This large figure is necessary to accomodate the large 
number of output buffers requested in the PRINTER DD statement. 

SYSPRINT DD Statement 

defines the message data set. 

PRINTER DD Statement 

defines the output data set. The output is directed to magnetic 
tape to make IMDPRDMP execution time as brief as possible; speed is 
further increased by the blocked records, large number of output 
buffers, and chain scheduling requested in the DCB operand. 

TAPE DD Statement 

defines an input dump data set. 

SYSUTl DD Statement 

defines the IMDPRDMP work data set. Although it is not required in 
this example because the input data set is on tape, it is included 
to reduce IMDPRDMP processing time. 

SYSWAPOO and SYSWAP01 DD Statements 

define the TSO swap data sets. These statements are identical to 
those used in the cataloged procedure for starting TSO. 

SYS IN DD Statement 

defines the data set containing the IMDPRDMP control statements. 
The data set follows immediately. 

ISO Control Statement 

requests formatting and printing of TSO system and user control 
blocks and TSO user regions. 

END Statement 

terminates IMDPRDMP processing. 

In the IEBPTPCH step: 
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EXEC Statement 

invokes IEBPTPCH. 
SYS PRINT DD Statement 

defines the IEBPTPCH message data set. 

SYSUT1 DD Statement 

defines the input data set, which in the IMDPRDMP step was the 
output data set defined by the PRINTER DD statement. 

SYSUT2 DD Statement 

defines the IEBPTPCH output data set, which in this case is 
allocated directly to a printer. 

SYSIN DD Statement 

defines the data set containing the IEBPTPCH control statements. 
The data set follows immediately. 

PRINT control statement with PREFORM=M 

tells IEBPTPCH that each record begins with a machine control 
character . 

Example 6: Editing GTF Trace Data from a Dump 

MSGLEVEL= ( 1, 1) 

PGM=IMDPRDMP 

SYSOUT=A 

SYSOUT=A 

UNIT=2400, VOL=SER=DUMP, LABEL= ( ,NL) , 

UNIT=SYSDA,SPACE=(2052, (257,10)) 



//EDIT 


JOB 


// 


EXEC 


//SYSPRINT 


DD 


//PRINTER 


DD 


//TAPE 


DD 


// DISP=OLD 




//SYSUTl 


DD 


//SYSIN 


DD 


EDIT 




END 




/* 





In this example: 
EXEC Statement 

invokes IMDPRDMP. 
SYSPRINT DD Statement 

defines the message data set. 
PRINTER DD Statement 

defines the output data set. 
TAPE DD Statement 

defines the input data set. 



PRDMP 
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SYSUT1 DD Statement 

defines the IMDPRDMP work data set. Although it is not required 
unless the input data set is on direct access, it should be included 
to reduce IMDPRDMP processing time. When it is included, it must 
specify enough space to contain the entire dump. 

SYSIN DD Statement 

defines the data set containing the IMDPRDMP control statements. 
The data set follows immediately. 

EDIT Control Statement with No Parameters 

instructs IMDPRDMP to format and print GTF trace buffers in the 
input data set, according to the default options SYS and USR=AIjL. 

END Control Statement 

terminates IMDPRDMP processing. 

Example 7: Editing a GTF Trace Data Set 

tfhen GTF trace data is recorded in an external data set, you can specify 
editing of only selected records. This example shows how to edit trace 
records associated with two specific jobs. 

MSGLEVEL-(1, 1) 
PGM=IMDPRDMP , PARM= ' ER=0 ' 
SYSOUT=A 
SYSOUT=A 

UNIT=2400, LABEL= (, NL) , VOL=SER=TRACE f 
// DISP=OLD, DCB= (BLKSIZE=20<*8,BUFNO=10) 
//SYSIN DD * 

EDIT DDNAME=TRACE,JOBNAME=X57A 

EDIT DDNAME=TRACE , JOBNAME=X5 6B , 

SIO=IO= (190,191) 
END 
/* 



In this example: 

EXEC Statement 

invokes IMDPRDMP and specifies the action that IMDPRDMP should take 
if a program interruption occurs in a user program. 

SYS PRINT DD Statement 

defines the message data set. 
PRINTER DD Statement 

defines the output data set. 



//EDIT 


JOB 


// 


EXEC 


//SYSPRINT 


DD 


//PRINTER 


DD 


//TRACE 


DD 
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TRACE DD Statement 

defines the input trace data set. Since this data set resides on a 
non- labeled tape, subparameters of the DCB parameter are used to 
specify the same trace block size as was specified when creating the 
trace record, and to request that ten input buffers be used to 
process the trace data. 

SYSIN DD Statement 

defines the data set containing the IMDPRDMP control statements. 
The data set follows immediately. 

EDIT Control Statement 

instructs IMDPRDMP to edit trace records in the data set defined by 
the TRACE DD statement. The JOBNAME=X57A parameter requests editing 
for only those records associated with job X57A. 

EDIT Control Statement 

instructs IMDPRDMP to edit trace records from the data set defined 
by the TRACE DD statement; that is, the same data set referred to 
in the first EDIT statement. This time, however, only records 
associated with job X56B are to be processed; of those, only SIO and 
I/O interrupt traces for devices 190 and 191 are edited. 

END Control Statement 

terminates IMDPRDMP processing. 



PRDMP 
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Chapter 9: IMAPTFLE 

Generates JCL needed to apply a PTF and/or applies the PTF. 
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Introduction 



The IMAPTFLE service aid is a problem program that is used to apply 
program temporary fixes (PTFs) to the IBM System/360 Operating System. 
You can use IMAPTFLE to; 

• Generate the JCL and execution control statements needed to add PTF 
to an operating system in a later step, or 

• Apply PTFs to an operating system by dynamically invoking the 
linkage editor. 

Either the generate function or the application function of IMAPTFLE can 
be used to add PTFs to an operating system. The method is determined by 
the PARM operand of the EXEC statement in the execution JCL. 

Both functions of IMAPTFLE require the Stage I output from sysgen as 
input. A brief explanation of the system generation process will clarify 
this requirement. 

An operating system is generated in two stages. During Stage I, 
user-supplied macro instructions that describe both the installation's 
machine configuration and the desired programming options are analyzed 
and used to generate a job stream. The Stage I output contains the JCL 
that makes up this job stream. In Stage II, the job stream is processed 
to generate the libraries that form the user's operating system. Each 
member of these libraries has a certain set of attributes. When a 
member (load module) is to be modified by a PTF, these attributes must 
be maintained. 

The attributes of the load module being modified by the PTF are 
contained in the JCL and control statements for the linkage editor and 
IEBCOPY utility generated during Stage I of system generation (SYSGEN) . 
To ensure that the PTF will be correctly applied, IMAPTFLE uses the 
Stage I output to determine the attributes of the load module being 
replaced with the PTF module. 
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Generate Function 

When using the generate function, two steps are required to apply PTFs. 
In the first step, IMAPTFLE generates the JCL and control statements for 
the linkage editor and IEBCOPY utility that are needed to apply the 
PTFs. In the second step, these JCL and control statements are executed 
to apply the PTFs to the operating system. Figure PTFLE-1 shows the 
generate function; the shaded area is performed after IMAPTFLE completes 
processing. 

One control statement is provided for each module that comprises the 
PTF. Each control statement contains the module name and system status 
index (SSI) for the PTF module. (Alias names of modules that were copied 
by the IEBCOPY utility during system generation must be provided in 
additional control statements following the control statements that 
contain the associated module name. These additional control statements 
should contain only one alias each. They may not be used to add new 
alias names.) IMAPTFLE searches the Stage I output for the module names 
contained in the control statements. From this search, IMAPTFLE produces 
the necessary JCL and control statements needed to apply the PTFs to the 
operating system. 



Generate Function 




IMAPTFLE 



FV=^ 



JCL to 
Add PTFs 



/ 


1 






\ 




IMAPTFLE 
Control Cords 



PTFs 



Execution 
of JCL 



Updated 

Operating 

System 



Figure PTFLE-1. The Generate Function of IMAPTFLE 
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Application Function 

When using the application function, only one step is required to apply 
PTFs. One control statement is used for each module that comprises the 
PTF. Each control statement contains the module name and system status 
index (SSI) for the PTF module. (Alias names of modules that were copied 
by the IEBCOPY utility during system generation must be provided in 
additional control statements following the control statements that 
contain the associated module name. These additional control statements 
should contain only one alias each. They may not be used to add new 
alias names.) When preparing the input, the PTF object modules are 
placed immediately behind their corresponding control statement (s) , as 
shown in Figure PTFLE-2. 

IMAPTFLE reads all of the control statements and object modules into 
a work data set, creates a table of PTF module names, and then searches 

| the Stage I output from the generated system being updated. When a 
module name from the Stage I output matches a PTF module name in the 
table, IMAPTFLE internally produces the information necessary to apply 
the PIF, and then invokes the linkage editor to update the operating 
system. IMAPTFLE then repeats the Operation until all PTFs have been 

| applied or the Stage I output reaches end- of -file. 



Application Function 



IMAPTFLE 




Updated 

Operating 

System 



Figure PTFLE-2. The Application Function of IMAPTFLE 
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Executing IMAPTFLE 



The requirements for executing the IMAPTFLE service aid vary according 
to the desired function: generate or application. 

Application Function 

For execution of the application function, the main storage space is 
dependent on both the linkage editor and operating system, as shown in 
Figure PTFLE-3. Input to IMAPTFLE consists of the Stage I output from 
the generated system to be updated, IMAPTFLE control statements 
identifying the CSECTs being replaced, and the object module PTF CSECT 
replacements. The control statements are discussed under "IMAPTFLE 
Control Statement." 



Design Level 

of 
Linkage Editor 

44K(F) 

88K(F) 

128K(F) 



Minimum Main 
Storage Requirements 
MVT MFT 



68K 


58K 


109K 


103K 


149K 


144K 



Figure PTFLE-3. 



Minimum Main Storage Required for IMAPTFLE When 
Using The Application Function. 



Figure PTFLE-4 shows the cataloged procedure that IBM supplies for 
executing the application function of IMAPTFLE. This procedure, called 
PTFLE, resides in the SYS1.PR0CLIB data set. 

USE= f IEWL* ,LIB1=LINKLIB,REG=68K 
PGM= IMAPTFLE, PARM=&USE, REGION=SREG 
SYSOUT=A 

UNIT=SYSQ,LABEL=(,NL) ,DISP=OLD, 
SER=STAGE1,DCB= (BLKSIZE=80) 

UNIT=SYSDA, SPACE=(TRK, (20,20)) 

UNIT=SYSDA,SPACE=(TRK, (20,20)) 

UNIT=SYSDA,SPACE=(TRK, (20,20)) 

SYSOUT=A 

DSNAME=SYS1. &LIB1,DISP=0LD 

Figure PTFLE-4. PTFLE Cataloged Procedure. 

I The statements in the cataloged procedures and their meanings are: 

PROC Statement 

defines values for the symbolic parameters in the PTFLE cataloged 
procedure. The default values are designated by USE, LIB, and REG 
in the parameter field of this statement. 



// 


PROC 


//PTF 


EXEC 


//PRINT 


DD 


//PCHF 


DD 


// VOL= 


=SER=S r 


//OUTF 


DD 


//SYSUT1 


DD 


//SYSUT2 


DD 


//SYS PRINT 


DD 


//SYSLMOD 


DD 
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EXEC Statement 

specifies the program to be executed, in this case IMAPTFLE. The 
PARM= field contains the symbolic parameter SUSE that will be 
assigned the default value of * IEWL* in the PROC statement; if IEWL 
is not the linkage editor to be used, override SUSE with the name of 
another linkage editor. 

The default value for the symbolic region size (SREG) is 68K; 
this value assumes that MVT is being used with the U4K linkage 
editor. If these assumptions do not apply, replace the PROC 
statement with one that contains the appropriate region size. 

PRINT DD Statement 

defines the message data set for IMAPTFLE. 

PCHF DD Statement 

defines the Stage I output from the generated system to be updated. 
This data set is input to IMAPTFLE. If the data set resides on an 
unlabeled tape, add a DCB parameter specifying the logical record 
length (80 bytes) and the blocksize. 

OUTF DD Statement 

defines a temporary sequential data set used by IMAPTFLE and the 
linkage editor. This data set may reside on magnetic tape or a 
direct access device. Do not specify the blocksize. 

SYSUTl DD Statement 

defines a work data set for the linkage editor. This data set must 
reside on a direct access device. 

SYSUT2 DD Statement 

defines a work data set for IMAPTFLE. This data set must reside on 
a direct access device. Do not specify the blocksize. 

SYS PRINT DD Statement 

defines the message data set for the linkage editor. 

SYSLMOD DD Statement 

defines the output module library for the PTF being added to the 
system the DSNAME keyword contains the symbolic parameter SLIB1. 
The SLIB1 parameter is assigned the value LINKLIB from the PROC 
statement when the procedure is invoked. Before overriding the 
LINKLIB data set name, see the publication IBM System/360 Operating 
System: Job Control Language Reference, GC2 8-6704. 

Generate Function 

For execution of the generate function, IMAPTFLE requires at least a 46K 
region or partition. Input to IMAPTFLE must consist of the Stage I 
output from SYSGEN and control statements identifying the modules for 
which JCL output is to be produced. 
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Figure PTFLE-5 illustrates the JCL needed to execute the generate 
f unct ion . 

//JOB JOB MSGLEVEL= ( 1, 1) ,REGION=4 6K 

//STEP EXEC PGM=IMAPTFLE 

//PRINT DD SYSOUT=A 

//OUTF DD UNIT=2400,LABEL=(,NL), 

// DISP=(,KEEP),VOL=SER=OUTPUT 

//PCHF DD UNIT=2400,IABEL=(,NL), 

// DISP=OLD, VOL=SER= SYSGEN , DCB= (BLK SI ZE=8 0) 

//MODF DD * 

control statements 
/* 

Figure PTFLE-5. Sample JCL Needed to Execute the Generate Function 
of IMAPTFLE 

JOB Statement 

initiates the job, and specifies a region size of 46K. 

EXEC Statement 

invokes IMAPTFLE. Do not specify any other parameters on this 
statement. 

PRINT DD Statement 

defines the IMAPTFLE message data set. 

OUTF DD Statement 

defines a sequential data set to which IMAPTFLE will direct its 
output. This data set may reside on a direct access device or a 
magnetic tape, or it may be directed to a SYSOUT data set. Do not 
specify a block size. 

PCHF DD Statement 

defines the Stage I output from SYSGEN to be used as input to 
IMAPTFLE. If an unlabeled tape is used, the DCB parameter 
specifying logical record length (80 bytes) and blocksize must be 
specified. 

MODF DD Statement 

defines the input stream that contains the IMAPTFLE control 
statements. 
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Control Statements 



Two types of control statement are valid in IMAPTFLE: the IMAPTFLE 
control statement and the linkage editor IDENTIFY statement. When using 
the application function, each IMAPTFLE control statement must be 
followed by the PTF object module named in the control statement, which 
in turn must be followed by the corresponding IDENTIFY control statement. 
When using the generate function, the IDENTIFY control statement is 
optional; if used it must follow the corresponding IMAPTFLE control 
statement . 

The following sections describe the IMAPTFLE control statement and 
the IDENTIFY control statement. 

IMAPTFLE Control Statement 

The IMAPTFLE control statement has the following general format: 
module name SSI number comments 

module name 

identifies the name of the module for which JCL is to be created. 
The length of this name can vary, but it must not exceed eight 
characters. If an input module can be specified by either of two 
names (component library name or system library name) , the component 
library name must be used. Statements containing duplicate module 
names will be ignored by IMAPTFLE. JCL will be produced for the 
module the first time the name is encountered. 

SSI number 

reflects the bit settings that are to be placed in the library 
directory entry for a load module after the PTF has been applied. 
The SSI information consists of indicators that reflect the status 
of the load module. The SSI must be updated to show that a module 
has been modified. The number must begin in column 10 and be exactly 
eight characters long. To determine the exact bit settings of the 
SSI before the PTF is applied, the utility program IEHLIST may be 
used to obtain the current SSI information for all the members of a 
1 ibrary . 

comments 

any user data . 

The coding specifications for this statement are: 

• Each control statement must contain only one module name and its 

8-character System Status Index (SSI) number. (As mentioned, when a 
user applies a PTF to a module, he is responsible for making sure 
that the SSI is updated to reflect these changes. For information on 
the SSI see the discussion "Updating System Status Information" in 
the IMASPZAP chapter of this publication,, and the publication IBM 
System/36 Operating System: Maintenance Program, GC2 7-6918. 
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• The module name must begin in column 1 of the control card. If the 
module name is less than eight characters, leave blanks between the 
end of the module name and column 9. 

• The SSI number must begin in column 10 of the control card. 

• Comments are permitted through and including columns 19 and 80 of 
the control card. 

• Columns 9 and 18 may contain delimiting blanks or commas. 

• When using the application function, each control statement must be 
followed by the PTF object module named in the control statement. 

Directory entries for existing alias names of modules that were copied 
by the IEBCOPY utility during system generation will be updated properly 
only if such alias names are provided in control statements that follow 
the control statements for associated module. These additional control 
statements need not contain SSI information. (Note: The alias names in 
additional control statements must be only those that appear in the same 
copy step as the true name of the module in the Stage I output from 
system generation . ) 

IMAPTFLE control statements are included in the input stream 
following the MODF DD statement, as previously described. A /* record 
denotes the end of input for the execution of IMAPTFLE. 

Multiple control statements can be used in any execution of 
IMAPTFLE, but the total number of control statements must not exceed 
150. After the limit has been reached, error message IMA001I will be 
issued. 

The IMAPTFLE control statements may be entered in any order. Any 
module named in a control statement must exist on the Stage I output 
tape. Any module names that cannot be found on this tape will be listed 
by an error message. Duplicate module names detected will also be 
flagged by the message. 

IDENTIFY Control Statement 

An IDENTIFY statement for use by the Linkage Editor may also be included 
in the input defined by the MODF DD statement. 

The IDENTIFY statement is not a control statement for IMAPTFLE, but 
for the linkage editor. IMAPTFLE will copy it (exactly as it appears in 
the MODF input stream) into the SYSLIN input stream that it creates for 
the linkage editor. 

The IDENTIFY statement is required for the application function and 
optional for the generate function. For the application function each 
PTF object module must be followed immediately by an IDENTIFY statement; 
if the IDENTIFY statement is absent, IMAPTFLE will terminate processing 
and issue message IMA010I. For the generate function the IDENTIFY 
statement must follow the IMAPTFLE module name control statement that it 
is associated with. Only 150 IDENTIFY statements, including continuation 
statements, are permitted in a job step. If this limit is exceeded, 
IMAPTFLE will terminate processing with a return code of 16 and issue 
message IMA011I. 
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The format of the statement must be identical to that of the Linkage 
Editor IDENTIFY control statement, as follows: 

IDENTIFY (c sectname { * data ')..., csec tname ( • data * ) ) 
csectname i * data * ) 

csectname 

is the symbolic name of the control section that is to be 
identified. If the CSECT name is changed at system generation by a 
CHANGE statement, the resulting name should be used. 

data 

is the identifying information (maximum of 4 characters) that is 
used to identify the CSECT. This must be enclosed in quotes. 

Column one of the statement must be blank. The outer parentheses may be 
deleted if only one control section is identified in the operand field. 
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Output 



IMAPTFLE produces two different types of output, as described below. 

Application Function 

The final result of running the IMAPTFLE application function is the 
updated load module. Because the application function is a 
self-contained operation, it produces no physical printed output. 

Generate Function 

The final result of running the IMAPTFLE generate function is a data set 
that consists of the job control language statements, linkage editor 
control statements, and the IEBCOPY control statements needed to add the 
PTFs to the generated operating system in a later run. Three types of 
JCL statements are produced : 

• Linkage Editor (IEWL) JCL: This type of JCL is produced if the load 
module requested for processing was originally link edited into the 
system during system generation. 

• IEBCOPY JCL: This type of JCL is produced if the member was 
originally copied into the system. 

• IEHIOSUP JCL: This type of JCL is produced in addition to LINK EDIT 
and/or IEBCOPY JCL. The IEHIIOSUP statements are used to execute the 
IEHIOSUP utility. This program updates any TTR entries in the 
transfer control tables of the supervisor call library (SVC library) 
that may require a change as a result of applying a PTF. 

Figures PTFLE-6, 7, 8, and 9 show sample output from the generate 
function of IMAPTFLE. All of these samples were derived by using the 
IMAPTFLE JCL and control statements illustrated in Figure PTFLE-5. For a 
more detailed explanation of the JCL statements and their parameters, 
refer to the publication IBM System/360 Operating System: Job Control 
User's Guide, GC28-6703. 

Note : The generate function IMAPTFLE will produce a JOB statement to 
precede any other JCL produced. 



PTFLE 
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//SG43 EXEC PGM=IEWL,C0ND=(8,LT), 

// PARM= , NCAL,LIST,XREF,OVLY,LET,DC , 

//SYSUT1 DD DISP=OLD, VOLUME= ( , RETAIN) , DSNAME=SYS1 . UT3 

//SYSPRINT DD SPACE= (121, (500, 100) ,RLSE) ,DCB= (RECFM=FB, 

// LRECL=121, BLKSIZE=121) , SYSOUT=A 

//SYSLMOD DD DISP=OLD,UNIT=2311, VOLUME =SER=111 111, 

// DSNAME=SYS1.LINKLIB 

//UT506 DD DISP=OLD, VOLUME=(, RETAIN) ,DSNAME=SYSl.UT5 06 

//SYSPUNCH DD DISP=OLD, VOLUME=( , RETAIN) , 

// DCB=(,RECFM=F,BLKSIZE=80) ,DSNAME=SYS1. OB JECT 

//SYSLIN DD * 

INCLUDE UT50 6(IEBGEN03) 
ENTRY IEBGENER 
INCLUDE SYSLMOD (IEBGENER) 
OVERLAY1 
INSERT IEBCCS02 
INSERT IEBGSCAN 
OVERLAY1 
INSERT IEBGENR3 
INSERT IEBCONP2 
INSERT IEBCONH2 
INSERT IEBCONZ2 
INSERT IEBEDIT2 
INSERT IEBLENP2 
INSERT IEBMOVE2 
OVERLAY2 
INSERT IEBGENS3 
OVERLAY2 
INSERT IEBGEN03 
SETSSI 05199133 
NAME IEBGENER (R) 
/* 



Figure PTFLE-6 



Sample Linkage Editor (IEWL) Output from IMAPTFLE 
Generate Function (Sample #1) 



//SG63 EXEC PGM=IEWL,COND=(8,LT), 

// PARM= , NCAL,,LIST,XREF,DC» 

//SYSUT1 DD DISP=OLD, VOLUME=(, RETAIN) ,DSNAME=SYSl.UT 3 

//SYSPRINT DD SPACE= (121, (500, 100) , RLSE) ,DCB= (RECFM=FB, 

// LRECL=121,BLKSIZE=121),SYSOUT=A 

//SYSLMOD DD DISP=OLD, UNIT= 2 311, VOLUME =SER=111111, 

// DSNAME=SYS1-LINKLIB 

//AL531 DD DISP=OLD, VOLUME=(, RETAIN) ,DSNAME=SYS1. AL531 

//SYSPUNCH DD DISP=OLD, VOLUME=( , RETAIN) , 

// DCB=(,RECFM=F,BLKSIZE=80) ,DSNAME=SYSl. OB JECT 

//SYSLIN DD * 

INCLUDE AL53KIEX51) 

ENTRY IEX51000 

ALIAS IEX51000,IEX51002,IEX51ER1,IEX51ER2 

INCLUDE SYSLMOD (IEX 51) 

IDENTIFY IEX51000 ( , PTF20191 i ) 

SETSSI 02150191 

NAME IEX5KR) 
/* 



Figure PTFLE-7 . Sample Linkage Editor (IEWL) Output from IMAPTFLE 
Generate Function (Sample #2) 
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PGM=IEBCOPY, COND= ( 8 # LT) 

DISP=SHR,DSNAME=SYSl. UT3 

SPACE=(121, (500,1000) ,RLSE) , 
DCB=(RECFM=FB,LRECL=121,BLKSIZE=121) , 
SYSOUT=A 

DISP=SHR,VOLUME=(, RETAIN) ,DSNAME=SYS1. CI505 

DSNAME=SYS1. SVCLIB, VOLUME=( , RETAIN, SER=SYS RES) , 
UNIT=2314,DISP=OLD 

* 

COPY OUTDD=SVCLIB,INDD=CI505 
SELECT MEMBER=( ( IGE0000A, ,R) ) 
SELECT MEMBER=( ( IGE0000D, ,R) ) 
SELECT MEMBER=( (IGE0000G, ,R)) 



//SG4U 


EXEC 


//SYSUT3 


DD 


//SYS PRINT 
// 


DD 


// 

//CI505 


DD 


//SVCLIB 


DD 


// 




//SYSIN 


DD 



/* 



Figure PTFLE-8. Sample IEBCOPY Output from IMAPTFLE Generate Function 



//SG7 9 


EXEC 


PGM=IEHIOSUP 


//SYS PRINT 


DD 


SPACE=(121, (500,1000),RLSE,DCB=RECFM=FB, 


// 




LRECL=121,BLKSIZE=121) , SYSOUT=A 


//SYSUT1 


DD 


DSNAME=SYS1. SVCLIB, DISP=( OLD, PASS) , 


// 




VOLUME= ( , RETAIN, SER=111111) , UNIT=2311 



Figure PTFLE-9. Sample IEHIOSUP Output from IMAPTFLE Generate Function 
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Examples 



//JOB 


JOB 


//STEP 


EXEC 


//PRINT 


DD 


//OUTF 


DD 


// 




//PCHF 


DD 


// 




//MODF 


DD 



Example 1: Generate Function 

This example shows the JCL and control statements needed to execute the 
generate function of IMAPTFLE. In this case, the input data set from 
sysgen resides on a magnetic tape. 

MSGLEVEL=(1,1) 

PGM= IMAPTFLE 

SYSOUT=A 

UNIT=SYSDA # VOL=SER=OUTPUT,DISP= ( , KEEP) , 
DSNAME=DAOUTPUT,SPACE= (TRK, (20, 10) ) 

UNIT=2400,LABEL=< , NL) ,DISP=OLD, 
VOL=SER=SYSGEN,DCB= {BLKSIZE=80> 

* 

IEBGEN03 05199133 
IEX51 02150191 

IDENTIFY IEX51000( , PTF20191*) 
IGE0O0OA 03144004 
IGE00O0D 02155123 
IGE0000G 05194025 
/* 

In this example: 

JOB Statement 

initiates the job. 
EXEC Statment 

invokes IMAPTFLE. 
PRINT DD Statement 

defines the message data set. 

OUTF DD Statement 

defines the output data set, in this case residing on a direct 
access volume. 

PCHF DD Statement 

defines the input data set containing the Stage I SYSGEN output. 

MODF DD Statement 

defines the input stream that contains the IMAPTFLE control 
statements . 
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Example 2: Application Function 

This example illustrates the JCL needed to execute the Application 
function of IMAPTFLE using the cataloged procedure PTFLE. 

//PTFPROC JOB MSGLEVEL=(1, 1) 

//STEP EXEC PTFLE 

//PTF.MODF DD * 

IEFSD082 01117251 

Insert PTF Object Deck 

Insert Linkage Editor IDENTIFY Statement 
IEFSD085 01117251 

Insert PTF Object Deck 

Insert Linkage Editor IDENTIFY Statement 
/* 

JOB Statement 

initiates the job. 

EXEC Statement 

invokes the PTFLE cataloged procedure, which executes the 
application function of IMAPTFLE. When PTFLE is invoked, these 
statements merge with the JCL statements in the cataloged procedure. 

PTF.MODF DD Statement 

defines the input stream, which contains the IMAPTFLE control 
statements. 

IMAPTFLE Control Statements 

identify the module to be updated with the PTF, and supplies the SSI 
information to be placed in the library directory entry for the 
module once the PTF has been successfully applied. 

IDENTIFY Control Statements 

identify the CSECT within the module identified by the IMAPTFLE 
control statement that is to be updated with a PTF, and supplies 
information needed to identify that CSECT once the PTF application 
is successful. 
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Operational Considerations 



Before attempting to use IMAPTFLE, the following considerations should 
be examined. 

General Considerations 

• IMAPTFLE will not accept more than 150 module names as input. If the 
number of names exceeds this limit, the job must be divided into 
more than one job of no more than 150 module names each. If control 
statements are provided for alias names of modules that were copied 
during system generation, these additional names must be counted 
toward the total of 150 when the generate function is being invoked. 

• The Stage I output must be from the generated system of the 
operating system being updated with the PTFs. 

• If Stage I output is an unlabeled tape, the DCB parameter containing 
the logical record length and blocksize must be added to the PCHF DD 
statement. 

• The Stage I output must not contain control characters (i.e., 
printer or punch) . 

• If an input module name can be specified by either of two names 
(component library name or system library name), the component 
library name must be used. For example, IEAATM02 is a component 
library name; its system name is IGC0201C. If JCL were required for 
this module, IEAATM02 would have to be specified as the input module 
name. 

• It is the user's responsibility to ensure that the SSI is correctly 
updated when the module is applied to the system. The user, 
therefore, should make sure that the correct SSI information is 
placed on each control card. (The correct SSI data appears on the 
cover letter for the PTF. ) Absence of the SSI on the control card 
will cause the SSI in the module's directory entry to be set to 
zeros . 

• If an input load module was created from multiple load modules in 
the distribution library, the user should make sure that a linkage 
editor ENTRY statement exists for that module in the Stage I output 
from system generation. If no such statement is present, IMAPTFLE 
should not be used, since it may cause the module to be updated with 
an incorrect entry point. 

• IMAPTFLE should not be used to apply a PTF to a module if the module 
name in the distribution library is different from the CSECT name in 
the module, and if the module's overlay structure was defined during 
system generation by INCLUDE statements rather than by INSERT 
statements. An example of such a module is the FORTRAN H compiler. 
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IMAPTFLE should not be used to apply a PTF to a module that is a 
member of a library copied totally from the distribution library at 
system generation. Libraries containing modules to be processed by 
IMAPTFLE should have been copied selectively by the IEBCOPY utility 
during system generation (that is, the SELECT statement must have 
been used.) 



Generate Function Considerations 

• IMAPTFLE will not produce JCL for either an IMASPZAP PTF (discussed 
in Section III of this publication) or a PTF that requires some 
degree of system generation for its application. 

• IMAPTFLE requires Stage I output from a system generation of Release 
19 or later. Output from earlier system generations cause the 
IMAPTFLE program to be terminated with an error message. 

• The system library being updated by a PTF must not be used as a 
driver to run the JCL job stream created by IMAPTFLE. It is 
recommended that the STARTER SYSTEM be used instead. 

• The user should verify that both the component libraries and the 
four utility data sets are cataloged on the driver system before the 
PTF is applied. (For more complete information on utility data sets, 
refer to the publication IBM System/360 Operating System: Utilities; 
GC28-6670. System data sets are cataloged, and successful 
application of the PTF therefore depends on their being cataloged as 
described. 

• IMAPTFLE does not produce JCL to apply PTFs to the Distribution 
Libraries (DLIBs). The JCL produced by IMAPTFLE is designed to be 
used in updating the system by using the DLIBs. Therefore, before 
running the JCL produced by IMAPTFLE, the user must apply the PTFs 
to the DLIBs to ensure a successful update of the system when the 
JCL stream is run. 

• The IMAPTFLE generate function will not accept more than 150 
IDENTIFY cards, including continuation cards. If the number of cards 
exceeds this limit, the job should be divided into more than one 
step of no more than 150 IDENTIFY cards and continuation cards each. 

Application Function Considerations 

• PTFs containing multiple CSECTs can only be applied to load modules 
residing on the same system library. 

• TTR entries in the transfer control tables of the supervisor call 
library (SVCLIB) are updated for PTFs applied to SYS1.SVCLIB. It is 
not necessary to run the IEHIOSUP utility. 
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Chapter 10: IMDSADMP 

Operates as a stand-alone program to produce a high-speed or 
low-speed dump of main storage. 



SADiVIP 
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Introduction 



When a system goes into a disabled wait state or an unending loop, a 
stand-alone dump program is needed to dump the contents of main storage 
so that the condition can be analyzed. Optimally, this dump program 
should be high-speed so that the system is inoperative for as short a 
period of time as possible. IBM provides IMDSADMP for this purpose. 
IMDSADMP is a macro instruction that allows a user to generate a 
stand-alone dump program specifically tailored to his installation's 
n eeds - 

IMDSADMP can generate two types of dump program: a high-speed 
version that can quickly write the contents of main storage to a tape 
volume in large blocks, and a low-speed version in which the contents of 
main storage are written to either a printer or a tape volume in 
unblocked, printable format. 

The high-speed version of the dump program may reside on either a 
tape or direct access volume; the low-speed version may reside only on a 
direct access volume. See the IMDPRDMP service aid for instructions on 
processing the high-speed output of IMDSADMP. 

Creation and usage of the dump program is simple. The user employs 
the IMDSADMP macro instruction to define the type of dump program he 
wants (see the topic "Specifying the Dump*'}. The dump creation process 
includes a specification step and an initialization step. In the 
specification step, the macro instruction is assembled with the 
IBM-provided IMDSADMP macro definition. This specification step produces s 

• I PL text necessary to make the dump program loadable for execution. 

• Code that allows the IPL text and the dump program module to be 
stored on a selected tape or direct access volume. 

• The dump program itself. 

In the initialization step, the IPL text and the dump program module 
are placed on the specified device. To execute the dump program, the 
user loads it into main storage from the device by means of standard IPL 
procedure. The main storage dump information is written to either a tape 
or printer device based upon user-specified operands of the IMDSADMP 
macro instruction. During execution of the direct access resident 
version of the dump program, the operator can override the device 
address which was specified as a result of the expansion of the macro 
instruction . 

The two steps required to create an executable dump program and a 
discussion of dump program execution follow the detailed descriptions of 
the high and low- speed versions. 

Multiprocessing ; In multiprocessing systems, IMDSADMP can dump the 
contents of the registers in both CPUs when the direct control feature 
is operational, and can dump all of addressable main storage. This is 
accomplished by an optional parameter of the IMDSADMP macro instruction. 
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Size of SADMP 



The size of the assembled IMDSADMP program depends on the output option 
selected and whether or not IMDSADMP will be on a multiprocessing 
system; see Figure SADMP- 1. The size of IMDSADMP is the same both in 
main storage and on the resident volume; see Figure SADMP-2. 



Output Option Without Multiprocessing With Multiprocessing 
High-Speed 
Low-Speed Printer 
Low-Speed Tape 



1024 


1088 


1088 


1344 


1280 


1472 



Figure SADMP 1. Size of the IMDSADMP Program in Bytes 
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IPL1 (24 bytes) 



IPL PSW 



Read IPL2 CCW 



IPL2 (144 bytes) 




V0L1 (80 bytes) 



IMDSADMP 

Dump Program Record 



IMDSADMP 
Work Record 



Same Size as the IMDSADMP Program 



Same Size as the IMDSADMP Program 



Figure SADMP 2. Format of Cylinder 0, Track for Disk Resident IMDSADMP 
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The High-Speed Dump Program 



This version of the IMDSADMP generated dump program (hereinafter 
referred to as the dump program) dumps the contents of main storage to a 
tape volume. Each dump record is 2052 bytes long. To further expedite 
the dump and conserve program storage requirements, the main storage 
information is written to a nonlabeled tape volume in an untranslated, 
hexadecimal form. Formatting, converting and printing of the 
information is performed by the IMDPRDMP service aid. 

Loading the High-Speed Dump Program 

The high-speed dump program may reside on either a tape or direct access 
volume. In either case, the user loads the program from the device into 
main storage by means of the IPL procedure. The high-speed dump program 
is loaded into the CPU Log Out Area or into a storage specified by the 
user through an operand of the IMDSADMP macro instruction. If IMDSADMP 
is loaded into the CPU logout area, IMDS&DMP destroys the contents of 
the logout area. In case of hardware errors, or when requested by the 
system, it may be necessary to display the contents of the CPU Log Out 
Area before invoking the dump program. This can be done by executing the 
System Environment Recording, Edit and Print routine, SEREP, which is 
discussed in the publication IBM System/360 Operating System: Operator's 
Reference, GC28-6691. 

Output of the High-Speed Dump Program 

If the user selects the high-speed version of the dump program during 
the specification step, he must select a tape device as the output 
medium, even though the dump program itself may reside on either tape or 
disk. The input device type selected has an effect on output retrieval. 
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If the dump program resides on a tape volume, the dump information 
is written to the nonlabeled tape that contains the program. The 
information, in untranslated, hexadecimal form, follows the IPL text and 
the dump program module records (see Figure SADMP-3, format 1). Each 
dump information record is 2052 bytes long (see Figure SADMP-3 , formats 
2 and 3) . 



IPL or Program Instructions 



79 



( Only present if the dump program is loaded from tape.) 
rOrmOT 1 Blocks 1 through 5 contain the IPL and program records. 80 bytes long. 



80000000 



1 IMDSADMP ' 



~lh 



Unused 



3 4 



11 12 



-lh 



-^ 



23 24 



General Purpose Registers 

n 



csw 



CAW 



87 88 



95 96 



99 



Multiprocessing Only 



Second Set of General Purpose Registers 


a. 
U 


o 


Unused 



100 



163 164 165 166 



2051 



First block of actual dump information. Contains general register and channel information. 2052 bytes total length. 
Byte 164 identifies the CPU that loaded IMDSADMP. Byte 165 gives the status of the second set of general purpose 
Format 2 registers: 

X'00 1 - registers not stored . 

X'FF' - registers stored. 



Block 
Starting 
Address 



■tt 



3 4 



Hexadecimal Dump of 2048 Bytes of Main Storage 

n 



2051 



Subsequent blocks of the dump. Contains storage protection key indicators (byte above) and the block starting address 
Format 3 followed by 2048 bytes of main storage information. 2052 bytes total length. 



Figure SADMP 3. Output Tape Formats for the High Speed Version of the Dump Program 

If the dump program resides on a direct access device, the 2052-byte 
dump information records are written to the nonlabeled output tape 
volume (see Figure SADMP-3, formats 2 and 3). The IPL text and dump 
program records and work record are contained on cylinder 0, track of 
the volume on which the dump program resides (see Figure SADMP-2). The 
work record is used to temporarily record the main storage information 
from the area into which the dump program is to be loaded. 
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The Low-Speed Dump Program 



The low- speed version of the dump program writes the contents of main 
storage to either a printer or a tape device. If output is to tape, the 
information may be subsequently printed by a program such as the 
IEBGENER utility program, as discussed in the publication IBM System/360 
Operating System: Utilities, GC28-6586, or by IMDPRDMP. 

Loading the Low-Speed Dump Program 

The low- speed dump program must reside on disk. To execute the program, 
the user performs the IPL procedure to load the dump program from its 
resident device. The IPL statements and dump program reside on cylinder 
0, track (see Figure SADMP-2). 

During the specification step, the user may either select an address 
at which to begin loading, or use the default value. If the user 
selects his own starting address, the value he specifies must be at 
least 128 decimal or 80 hexadecimal. 



Output of the Low-Speed Dump Program 

The low speed version of the dump program writes dump information to 
either a tape volume or a printer. The format of the main storage 
information is the same, regardless of the output device type to which 
it is being written. Each dump record contains 120 characters of 
formatted dump information. An output sample is shown in Figure SADMP-4 . 
The contents of the general purpose registers are printed first, 
followed by the remainder of main storage. (Note that for low- speed 
dumps of a Model 65 Multiprocessing System, IMDSADMP shows both sets of 
general purpose registers; see Figure SADMP-5. ) A storage location 
field containing the address of the first byte is printed to the left of 
each line. A character translation field, showing the EBCDIC translation 
of the hexadecimal contents, is displayed to the right of each line. 
Only alphabetic or numeric representations of hexadecimal information 
are given in the character translation field; all other bytes are 
represented by a period. If a line duplicates the contents of the 
previous line, it is not printed; instead the duplicate line is left 
bl ank . 

If the output of the dump program is directed to a tape volume, each 
dump information record is preceded by a one-byte ASA character that is 
used by the subsequent printing program to control printer spacing. This 
results in a total record length of 121 bytes. This tape volume may be 
printed by using the IEBGENER utility program or IMDPRDMP. 



250 Service Aids (Release 21) 



o 
S3* 
p> 
•a 

rt 
CD 



H 

S 

o 

CO 

> 
a 

s 






R 0-7 
R 8-15 

ccoooo 

000020 
OC0040 
000060 
000080 
OOOOAO 
OCOOCO 
OCCOEO 
000100 
000120 

OC0160 
000180 
OCOIAO 
0C01C0 
OCOIEO 

000220 
000240 
0C026O 
0C028C 
0C02A0 
0002C0 
0C02E0 
0C030O 
000320 
000340 
000360 
000380 
OC03AO 
0003CO 
0003E0 
0C0400 
000420 
0C0440 
0C0460 
000480 
0004A0 
004C0 
0004EO 
000500 
000520 
000540 
000560 
000580 
0C05A0 
0005C0 
0C05E0 
OC0600 
0CC620 
000640 
000660 
000680 
0006AO 
0C06C0 
0C06E0 
000700 
00,0770^ 


OOOOOOCC 
OOOOOOOC 

C000C191 
FF 05 CO 01 
00014F10 
982400C8 
91FF0045 
07F21523 
020000C8 
40 40 40 40 
61F1F361 
OOOOOCOC 

OOOCOOOC 
FF06000C 
0006076C 
00050180 
OOOOOOCO 

0002D460 
C08CFF0C 
29030000 
542 84012 
0080FF0C 
29070000 
54284012 
C080FF82 
COCBOCOO 
10000802 
0080FFOO 
0080FFOO 
291C00C0 
52004092 
0080FF0C 
2B140000 
51014011 
0080FFOC 
2B180000 
52004092 
0O80FF00 
291C0000 
52004092 
COOOOOOO 
120B1003 
66200010 
0080FFCG 
29220000 
51004013 
0080FFOO 
29260000 
51004013 
0080FF00 
292A0000 
54004013 
O08OFF00 
292E0000 
51004013 
00 80FF00 
.29320000V 


OOOOOOOC 

OOOCOCCC 

000150C4 
5005D1DF 
OCOCOOOC 
9DCC1CCC 
475C0084 
47A000AA 
20000048 
4040404C 
F6F94040 
OOCOOQCG 

OOOCOCOC 
800C0000 
00O2O5CC 
00C00003 
OCOCOOOC 

OOCOOOOO 
00010006 
0CF0F0F2 
00000000 
00050006 
00F0F0F6 
OOOCOOOC 
00090000 
00F0F0C3 
00000000 
OOCFOOOO 
00100006 
OOFOFIFI 
COCCOOOC 
00140006 
00F0F1F5 
OOCOOOOO 
00190006 
OOFOFICI 
OOCOOOOO 
00100000 
^0F0F1C5 
COOOOOOO 
OOCOOOOO 
OOCOOOOC 
0OF0F2F2 
00230006 
00F0F2F4 
OOOOOOCO 
00270006 
00F0F2F8 
OOCOOOOO 
002B0006 
00F0F2C3 
OOOOOOCO 
002F0006 
00F0F3FC 
OOCOOOOC 
003300 Q£> 


4C404C4C 

OOOOCOOO 

COCOCO^O 
OCOCOOOC 
0CC14EB8 
47700064 
5820CCCC 
18324850 
C2C505C4 
40404040 
40404040 
OCCOCOOO 

COOOOOOO 
0000018A 
8CC6056C 
CCC6C56C 
COOOOOCO 

0080FFC0 
2B020000 
51014C82 
0080FFCC 
2906C0C0 
51904012 
0080FFC0 
040AC004 

lcoocaci 

0080FF88 
C7CE00C0 
290FC0C0 
51914011 
C080FFC0 
2B13CO0C 
53904092 
0080FFCO 
29170000 
53104092 
0080FFC0 
CD1BC000 
51004012 
0080FFCO 
OOCOOOOO 
COOOOOCO 
120B10C3 
2921C0CC 
51004013 
00 80FF00 
292500C0 
51004013 
0080FFOO 
29290000 
5400 4013 
0G80FFC0 
292020,00 


4C014E7C 
OCOCOCOC 

6CCC0C50 
OCOOOCOO 
CCC141CC 
9C001C00 
95E70CCA 
0CD20f50 
4C404C40 
4C404CC6 
4C4C4C40 
OCCOOCOO 

820CC170 
018A018A 
CCC6C568 
00060 7B0 
CCOOOCOO 

CCOOOCOO 
CCF0F0F1 
GCCCOCCO 
CC04CC06 
0CFCFCF5 
OCOOOCOO 
CCC80C06 
0CF0FCF9 
0OFO4CCO 
CCOECOOO 
0CFOFCC6 
OOFOFIFO 
CCOOCCCO 
00130006 
CCFCF1F4 
CCOOCCOC 
CC170C06 
00FCF1F9 
OOOCOCOC 
CC1C0C00 
00F0F1C4 
CCOOOCOO 
CC200C0C 
OCOOOCCO 
CCOOOCOO 
CCOOOCOO 
0CFOF2F3 
OCOOOCOO 
CC260C06 
00F0F2F7 
OCCOOCOO 
0C2A0C06 
0CFOF2C2 
OCOOOCOO 
0C2E0C06 
CCFCF2C6 
OCCOOCOO 
<C32CC06 


40404C4C 

OOOCOCCC 

C8015C38 
OOnCFFOO 
578C636E 
9DOC1000 
478000A2 
445000B8 
40404C4C 
F3F0E2C5 
CCOCOCOC 
OOOOOOCO 

CC04CC00 
FF0CC190 
C006076C 
5005CFB4 

COOCCCOC 

C7C10C00 
53104C92 
008GFF0G 
2B050COO 
51904012 
008CFF00 
29C90C0C 
1000C820 
008CFF80 
07000CCO 
108C08C8 
51014011 
008CFFCO 
29120000 
539C4092 
0080FF00 
29160C00 
51904012 
0C80FFOO 
ODIAOOOO 
10000802 
0080FF00 
661E0C10 
008CFF00 
OOOOOOOC 
OCOOOCCO 
51904C13 
0080FFCO 
2924CC0C 
51004013 
0080FFOO 
29280CC0 
52004013 
CC8CFF00 
292CCCC0 
54004013 
008CFFOO 
293C0C00 
51004013 
-^— H^OFFOO 
^^00 


00014EE8 
COOOOCCO 

CCOOOOOl 
OQOCOCOC 
4810CGG2 
477C0C7C 
9505GCCA 
47F00C6C 
4C4C4040 
D7F6F94C 
COOOOOGO 
OOOOOOCC 

00036CCC 
FF0C019C 
C006C564 
000 50180 
COOOOOOO 

OOFOFOFC 
OOOOCCCO 
00030006 
00F0F0F4 
COOOOCCO 
0007CCC6 
OOFOF0F8 
75E00000 
OOODCOCC 
00FCF0C5 
COOOOOOO 
COOOOOOO 
00120006 
00F0F1F3 
OOOOOOCC 
00160C06 
OOF0F1F7 
COOOOOCO 
001800C6 
00F0F1C3 
COOOOCCO 
CQ1FOC06 
00F0F2FC 
00210CCC 
COOOOOCO 
OOOOOCCO 
COOCCCOC 
00250006 
00F0F2F6 
OCOOOCOO 
00290006 
00FCF2C1 
COOOOOOO 
002D0006 
00F0F2C5 
OOOOCOOO 
00310006 
00F0F3F2 
OOOOCCOO 
00350C06 
00FC>&3** / 


OCCCOCCC 
40014E72 

FFF5CC8C 
FF06000C 
412CC0CC 
91030C44 
4770006C 
02CC20C0 
404G404C 
F0FC4BF1 
CCCCOOCC 
OCCOOCCC 

occcooco 

0OCCOOC1 
E2C4F7FS 
OOOOOOOC 
OOCCOCCC 

10CCC808 
C08CFFC0 
29040000 
52SC4092 
CC8CFFCC 
29C80000 
51004022 
008CFF8C 
CDCCOOCO 
100008C8 
OOCOOOOC 
0C8CFFCC 
2B110000 
51914051 
CC8CFF0O 
29150000 
54C14011 
008CFFC0 
2619000G 
10000801 
C08CFFC0 
281C0O00 
12CB10C3 
661F0C1C 
0C8CFFC0 
COOCCOOO 
008CFFC0 
292300CC 
51004013 
008CFFC0 
292700CC 
51C04C23 
CC8CFFCC 
2926O00C 
54C04C13 
008CFF00 
292F00C0 
51004013 
00 8 OF FCC 
291^-^"^ 


OOCOOOOO 
OOOOCCOO 

90C622C2 
800000C0 
5020C048 
4750C07C 
1524C783 
C0C8G000 
40404040 
F340F1F0 
OOCOOOOO 
OOCOOOOO 

OOCOOOOO 
FFF9FA9C 
5005D182 
OOCOOOOO 
OOCOOOOO 

OOCOOOOO 
OOC20006 
00F0F0F3 
OOCOOOOO 
0CC6CCC6 
00F0F0F7 
OCCOOCOO 
OCCCCOOO 
0CF0FCC4 
75F00100 
OOCOOOOO 
0C1100C6 
00F0F1F2 
00000000 
00150006 
00FOF1F6 
OOOOCOOO 
001A0006 
00F0F1C2 
OOCOOOOO 
001E0006 
0CF0F1C6 
OOCOOOOO 
00F0F2F1 
0022000C 
OOOOOOOC 
00240006 
00F0F2F5 
OOCOOOOO 
00280006 
00F0F2F9 
OOOOCOOO 
002C0006 
00F0F2C4 
OOOCOOOO 
00300006 
00F0F3F1 
OOOOCOOO 
,£££40006 


* 
* 

* 

* 




. . . 
















t c 












































,.F ENC 

13.69 


F30SEP69 CO 


* 
13 10* 






























?9..J.* 














































* 






















* 






































..012* 








* 






















* 






















































































. .025* 




















































.....* 






















* 








f* ~ TVVlMr 














■^^036^, 





Figure SADMP-4. IMDSADMP Low-Speed Dump Output Sample 
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Figure SADMP 5. 



IMDSADMP Low-Speed Dump Output Sample of a Model 65 
Multiprocessing System 



Specifying the Dump 



The particular version of the IMDSADMP dump program to be generated is 
specified by the operands entered in the IMDSADMP macro instruction. 
Depending upon the operands coded, the program will be generated as 
shown in Figure SADMP-6. The IMDSADMP macro instruction statement is 
coded as shown in Figure SADMP-7. 
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Figure SADMP-6. IMDSADMP Parameter-Dependent Program Generation 
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[symbol] 



e][.cpu-{01Uotect- 



(370(JL" 



,TYPE=HI,OUTPUT=Tc 



[ IPL= ©] 






,TYPE=LO 



,OUTPUT= 



[ POPE I 
j Pcuuj 
[ Tcuu ' 



[/address 
START= {X'address 1 

*(x'80' orX'100 



\}[^m-m)] 




' Note: The default value of the START= operand is dependent upon the value specified for the CPU= operand. 
X'80' is the default if CPU=360 is specified or if CPU= is omitted. 
X'100' is the default if CPU=370 is specified. 



Figure SADMP-7. The IMDSADMP Macro Instruction Statement 
symbol 

any symbol may be associated with the IMDSADMP macro instruction. 
However, this symbol should not be referenced by any other assembler 
input statement, such as the END statement. 

IMDSADMP 



The name of the macro instruction is coded as shown. 



IPL= 



describes the device upon which the dump program resides. As such, 
it dictates the operation of the initialization step of the dump 
creation procedure. The allowable options for the IPL= operand and 
their meanings are: 



TAPE 



specifies that the dump module is stored on a tape device. If 
this option is coded, all keywords except CPU= and PROTECT= are 
ignored. TYPE=HI is assumed. When the dump is executed, output 
is written to the same tape device on which the dump program 
resides, immediately following the IPL and dump program records. 



cuu 



specifies a direct access device address where "c" indicates 
the channel address, and "uu" indicates the device address. The 
direct access volume that is to contain the dump program must 
be mounted on this device during the initialization phase. 
After initialization, the volume may be moved to any other 
direct access device. 

If the IPL= operand is not specified, a default value of direct 
access device 191 is assumed. 
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TYPE= 



specifies the version of the dump program to be generated for direct 
access residence. The allowable options for this operand and their 
meanings are: 



HI 



LO 



specifies the high-speed version of the dump program that will 
write unformatted core-image output to a tape volume in 
2052-byte blocks. Note: The resultant output tape must be used 
as input to the Print Dump service aid (IMDPRDMP) to format and 
print the dump information.) If this option is coded and the 
dump program resides on a direct access device, OUTPUT=Tcuu is 
required. (See the options for the OUTPUT=keyword operand.) 



specifies the low-speed version of the dump program that will 
produce formatted EBCDIC output to either a tape device or the 
printer. If no options are entered for the TYPE= operand, 
TYPE=LO is assumed. 



OUTPUT= 



specifies the output device type. It also specifies the default 
output device address to which the dump is to be written if the 
operator chooses to use the default address rather than specify an 
address through a console reply in response to a message. The 
allowable options for this operand and their meanings are: 



Tcuu 



specifies the channel and unit address of a tape output device 
where "T" indicates tape, "c" indicates the channel address, 
and "uu" indicates the unit address. This is the only valid 
option for this operand when TYPE=HI is specified. If TYPE=HI 
is specified and this option is not specified or the entire 
OUTPUT= operand is omitted, TYPE=HI will be changed to TYPE=LO 
and the default value of POOE will be used as the OUTPUT= 
operand. 



Pcuu 



specifies the channel and unit address of a printer where "P" 
indicates printer output, "c" indicates the channel address, 
and "uu" indicates the unit address. 

If the OUTPUT= operand is not specified and TYPE=LO is coded, a 
default value of printer 00E (POOE) is assumed. 



PROTECT = 



applicable only if TYPE=HI is selected. This operand specifies 
whether or not the storage protection feature is available on the 
CPU. The allowable options for this operand and their meanings are: 



YES 



This value must not be coded if the storage protection feature 
is not available on the CPU on which the dump program is 
intended to be executed, as the dump program will not work. If 
it is coded or assumed, it specifies that the feature is 
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implemented. The storage protection key field in the output of 
the high-speed version of the dump program will contain the 
storage protection key associated with the block of storage 
being dumped (see Figure SADMP-3, format 3) . 



NO 



If the storage protection feature is not available on the CPU, 
or if it is not to be used, the NO value must be coded for the 
PROTECT= operand. If NO is coded, the storage protection key 
field in the output of the high-speed version of the dump 
program will contain zero (see Figure SADMP-3, format 3). 

If this operand is not coded, PROTECT=YES is assumed. 

START= 

specifies the storage location into which the CCW's for loading the 
direct access resident dump program will be read. 43 bytes of 
storage are required for the load CCW*s and, with the 24 bytes of 
storage starting at location that are required for the I PL 
procedure, represent the only storage destroyed by execution of the 
dump program. 

The START parameter is valid for both high and low speed options of 
the direct access resident dump program. Allowable values for this 
operand and their meanings are: 



address 



specifies the starting address of the CCW loading area 
expressed as a decimal number. The storage address must be 
greater than or equal to 128 and be aligned on a doubleword 
boundary. If the value specified is less than 12 8, it is 
ignored and 128 is used; if the value is not a multiple of 
eight, the next higher multiple of eight is used. The maximum 
allowable address must be at least 4 8 bytes less than the 
maximum main storage address of the CPU on which the dump 
program is to be executed. 

X* address* 

specifies the starting address of the CCW loading area 
expressed as a hexadecimal number. The address specified in 
this operand must be X'80* or greater, and be aligned on a 
doubleword boundary. If the value specified is less than 
X'SO*, it is ignored and X*80' is used; if the value is not a 
multiple of eight, the next higher multiple of eight is used. 
The maximum allowable address must be at least X^O* bytes less 
than the maximum main storage address of the CPU on which the 
dump program is to be executed. 

The default value for the START parameter is dependent on the values 
of the CPU parameter. If CPU=360 is specified, or if the CPU 
parameter is omitted, the default value used for the START parameter 
will be X'80*. If CPU=370 is specified, a default of X'100* will be 
used for the START parameter. Adjusting the START value in this way 
is done to ensure that the storage overlayed by the dump program 
will be contained in the log-out area of the CPU on which the dump 
program is to be executed. 



256 Service Aids (Release 21) 



CPU = 



defines the IBM computer system that IMDSADMP will dump. There are 
two possible subparameters : 

1. The system subparameter — 360 or 370 for the IBM System/360 
and IBM System/370 respectively. 

2 . The multiprocessing subparameter — NOMP for 
non-multiprocessing systems and MP for multiprocessing systems. 

Implicit in the system subparameter is the location of the log-out 
area (sometimes called the diagnostic scan- out area). For the IBM 
System/360, the log-out area is located at X f 80*; for System/370, it 
it located at X*100*. 

When IMDSADMP is loaded from magnetic tape (IPL=TAPE) , the IPL 
procedure overlays the first 24 bytes of main storage and the entire 
256 bytes of log-out area. 

When IMDSADMP is loaded from a direct access device (IPL=cuu), the 
log-out area is used as the default value for the START parameter 
(refer to START). 

One version of IMDSADMP is used for a non- multiprocessing system, 
and another version is used for a multiprocessing system; 
CP0=(,NOMP) and CPU=(,MP) specify the different systems. When 
applied to a multiprocessing system, IMDSADMP must be resident on a 
direct access device; in that case, therefore, define IPL=cuu. At 
the present time, the only multiprocessing system that IMDSADMP can 
be used with is the IBM System/360 Model 65 Multiprocessing system; 
for this system define CPU=(360,MP) . 



CONSOLE= 



specifies the address and type of the console through which commands 
will be entered. Valid values and their meanings are: 

/009l 
leuu/ 

The console address. If you omit the CONSOLE= parameter, 
IMDSADMP assumes a default address of 009. 
1052' 
|3066| 
3210, 
13215 
5450 

The console device type. If you omit the CONSOLE=parameter, 
assumes 1052 as the default device type. (Model 65 
Multiprocessing only). 



( 01F) 
leuu/ 



The address of the second console in a multiprocessing system. 
This value is not valid for non- multiprocessing systems. If 
this value is omitted, IMDSADMP assumes a default address of 

01F for the second console. 
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Retrieving and Creating the Dump Program 



The dump program is created in two steps: a specification step and an 
initialization step. The specification step involves the creation of a 
dump initialization deck that will be used as input to the 
initialization step. These two steps are discussed below: 

The Specification Step 

Before commencing operation on the specification step, the user must 
have made two decisions. First, he must have decided which version and 
options of the dump program he wishes to be in effect, as detailed in 
the previous discussion. Second, he must also have decided whether he 
wants the macro definition to be in a library (and, if so, which one) or 
in card image form. 

Before the IMDSADMP macro definition can be assembled into a 
stand-alone program, the macro definition statements must be available 
on a media from which they can be assembled. Figure SADMP-8 shows five 
media from which IMDSADMP can be assembled. 
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Figure SADMP-8. Availability of IMDSADMP Macro Definition Statements 
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If the MACLIB macro instruction was specified During system 
generation, the macro definition for IMDSADMP is transferred from the 
SYS1. MACLIB component data set in the distribution library to the 
SYS1. MACLIB system data set. The IMDSADMP stand-alone program can then 
be assembled in the same manner as any other program in macro definition 
form. If MACLIB was not specified, use one of the following techniques 
to obtain the IMDSADMP macro definition: 

Distribution Library as a Private Library: The distribution library can 
be used as a private library for the assembling of the IMDSADMP 
stand-alone program, see Figure SADMP-9. This example assumes that the 
distribution libraries are cataloged; if not, add the UNIT and VOL=SER 
operands to the ASM.SYSLIB data definition statement. 



//AS MS AD 


JOB 


MSGLEVEL= ( 1, 1) 


// 


EXEC 


ASMFC 


//ASM.SYSLIB 


DD 


DSN=SYSl. MACLIB, DISP=0LD 


//ASM. SYS IN 


DD 


* 



(include the IMDSADMP macro instruction here) 

END 
/* 

Figure SADMP-9. An Example of IMDSADMP JCL Statements 

for Designating SYSLIB 

Copying to a Private Library: The IMDSADMP member of the SYS1. MACLIB 
component of the distribution library can be copied to a user defined 
library. The IMDSADMP stand-alone program can then be assembled from the 
user defined library. 

Punching the Definition Statements: The IMDSADMP member of the 
SYS1. MACLIB component of the distribution library can be punched into 
cards using a utility program. With the macro definition statements on 
cards, the IMDSADMP stand-alone program can be assembled using these 
cards as input. Figure SADMP-10 shows the specification step when the 
macro definition statements are in punched card form. 
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Figure SADMP-10. Example of the IMDSADMP Specification Step 

Prior to executing the specification step, the user should ensure 
that he has all the required elements: 

• The Assembler job control cards. 

• The IMDSADMP macro definition, in either card image form or in a 
library as discussed above. 

• The IMDSADMP macro instruction containing the operands that defines 
the version of the dump program that the user wishes to generate. 
The macro instruction may be included only once per assembly. 

The specification step, then, is an assembly that creates a dump 
initialization deck, to be used as input to the initialization step. 
This dump initialization deck consists of: 

• Code that allows the remainder of the dump initialization deck to be 
stored on the selected tape or direct access device. 

• IPL text necessary to make the dump program loadable for execution. 



SADMP 
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The Initialization Step 

The specification step provides input to the initialization step. The 
output of the initialization step is an executable dump program, stored 
on an I/O device from which it is loaded by the IPL procedure into main 
storage for execution. Initialization may be performed in one of two 
ways, depending upon the device type specified in the IMDSADMP macro 
instruction IPL= operand. The different initialization step procedures 
are illustrated by Figure SADMP-11. 
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IEBGENER 
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Figure SADMP-11. IMDSADMP Initialization Procedures 

Tape Initialization (High-Speed Only) 

If the user has specified that the high-speed version of the dump 
program is to reside on tape, the specification step will have provided 
three types of statements to the initialization step: job control 
statements, IPL text and the dump program object module. The JCL 
statements invoke and control the operation of the IEBGENER utility 
program (as discussed in the publication IBM System/360 Operating 
System; Utilities, GC28-6586) that copies the remainder of the dump 
initialization deck to the specified tape volume. The IPL text allows 
the dump program to be loaded from the tape volume into main storage for 
execution. The dump program object module consists of the actual machine 
instructions that perform the desired dump function. The initialization 
process for a dump program that is loadable from a tape volume is under 
control of the operating system, and is performed in the same manner as 
for any other job. During execution of the job, the operator will 
receive message IEF233A from the job scheduler, asking for tape serial 
number "DUMP". At this time, a non-labeled scratch tape is mounted to be 
initialized. 

Note: The output of IEBGENER describes the tape to be initialized as is 
shown in Figure SADMP-12. If a 7-track unit is to be used to initialize 
a dump tape, the UNIT= parameter must be changed to describe a 7-track 
tape device; that is, UNIT=2400-2. If the data conversion feature is not 
present on the 7-track unit, the TRTCH=C parameter should be removed. 
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//SYSUT2 DD VOL=SER=DUMP,LABEL=(,NL) ,DISP=( NEW, KEEP), 
// UNIT=2400, DCB=(BLKSIZE=80,LRECL=80,RECFM=F,DEN=2,TRTCH=C) 

Figure SADMP-12. An Example of IEBGENER DD Statements for Dump Tape 

Initiali zation 

The JCL statements that head the dump initialization deck invoke the 
IEBGENER utility program, which in turn copies the remainder of the dump 
initialization deck onto the selected tape volume. When a user wishes to 
obtain a high-speed dump of main storage, the necessary program and 
storage space are available to him on the volume he has initialized. 



Direct Access Initialization 

A direct access device must be used to store 
whereas the high-speed version may be stored 
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The volume on which the assembled IMDSADMP service aid resides must 
have a standard 80-character label located at cylinder 0, track 0. There 
may be up to seven 80-character labels on that track. The number of 
labels depends upon the IMDSADMP options selected and the track capacity 
of the device; see Figure SADMP-13. 
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Figure SADMP-13. Maximum Number of User Labels Depending on 
Device and Options Selected 
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The IPL text is then used to load the dump program from the direct 
access device into main storage for execution. The dump program object 
module consists of actual machine instructions that perform the 
specified dump function. Initialization of a dump program that is 
loadable from a direct access volume is a stand-alone process and 
proceeds as follows: 

• Ready the desired direct access volume on the device specified by 
the IPL= operand of the IMDSADMP macro instruction. 

• Place the dump initialization deck in the card reader. 

• Set the Load Unit dials to the address of the card reader. 

• Press the Load key on the operator's console. 

When the initialization program has successfully transferred the IPL 
text and the dump program module to the direct access volume, a 
completion code of X'Ol' appears in the instruction address register 
(IAR). After the initialization step has been completed, the direct 
access volume containing the dump program may be moved to any device. 
The direct access volume may be repeatedly dumped and restored without 
reinitialization of the dump program. If the user keeps the dump program 
direct access volume permanently mounted, the dump program is 
immediately available when the user wishes to obtain a stand-alone dump 
of main storage. 

If the direct access initialization process is not successful, an 
error code is set in the IAR. This code indicates the cause of the 
initialization failure: 



X'Oa' 



The VTOC of the volume being initialized begins on cylinder 0, track 
0; hence the record containing the dump program cannot be written on 
this track. Such a direct access volume cannot contain the IMDSADMP 
program. 



X'08 



The unused space on cylinder 0, track is not sufficient to hold 
the dump program. Only standard IPL records, the 80-character volume 
label, and one to seven user labels can reside on cylinder 0, track 
0. 



X*0F0F0F' 



A permanent I/O error (the condition persisted after 16 retries) 
occurred on the direct access device being initialized. This 
condition is usually caused by cylinder 0, track being defective, 
A direct access volume with a defective cylinder 0, track is not 
suitable for use as an IPL volume. The volume should be analyzed, 
using either utility program IEHDASDR or IBCDASDI, and the 
initialization process repeated. 
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Executing the Dump Program 



The operating procedures for the tape resident version of the dump 
program vary slightly from those of the direct access resident version. 
Console operation procedures for the execution of the tape resident 
version of the dump program are as follows: 

• Ensure that the initialized tape volume containing the dump program 
has the write ring in place. 

• Mount the initialized dump tape volume (discussed under Creating the 
Dump) on an appropriate tape device. 

• Set the Load Unit dials to the address of the tape device containing 
the initialized dump tape volume. 

• Press the Load key on the operator's console. 

The contents of main storage are written to the same tape volume that 
contains the dump program. The dump information is written to the tape 
volume immediately behind the dump program records (see Figure SADMP-3). 

Successful completion of the dump is indicated by the appearance of 
X'01* in the instruction address register. At this point, the user must 
perform the OS/360 IPL procedure in order to restart the operating 
system. The tape containing the dump information must then be used as 
input to the Print Dump service aid to format and print the information. 
After the information contained on the tape volume has been printed, the 
same initialized volume may be used to perform another dump. The IPL 
text and the program module heading the initialized tape volume are not 
destroyed in the dump process. 

A direct access resident dump program is executed as follows: 

• Mount the initialized direct access volume (discussed under 
"Creating the Dump") on any suitable direct access device and bring 
the device to ready status. (Usually, the dump program would be 
stored on a permanently mounted direct access volume, so that it 
would always be available.) 

• Set the Load Unit dials to the address of the direct access device 
containing the initialized volume. 

• Press the Load key on the operator's console. 

• Message IMD001A will be issued to the console at the address 
specified by the CONSOLE= parameter. This message asks for the 
address of the device to which the dump output is to be written. 
When message IMD001A is issued, the operator should ready the 
desired output device and enter the address of that device or signal 
end-of-block if the default output device is to be used. If the 
operator responds with end-of-block, or if an error occurs during an 
I/O console operation, the output device specified by the OUTPUT= 
parameter when the IMDSADMP macro was assembled will be used. If the 
OUTPUT= parameter had not been specified, the default value of POOE 
will be used. 

The device address specified in response to message IMD001A 
must be that of a device whose type agrees with the device type 
specified by message IMD001A. If Tuu was specified for the OUTPUT= 
parameter as the device type, message IMD001A TAPE= will be issued, 
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indicating that a tape device is desired. If Puu was specified for 
the OUTPUT= parameter as the device type, or if the OUTPUT= 
parameter was allowed to default, the message IMD001A PTR= will be 
issued, indicating that a printer device is desired. When output is 
to a tape device, the volume mounted on the specified device is 
checked for standard labels before the dump is written. Standard 
labels are checked by comparing the first four bytes of the first 
record for V0L1. (The VOL1 identifier is checked against both EBCDIC 
and ASCII encodings.) If such a label is found, or if an I/O error 
occurs during the label checking procedure, the volume is unloaded 
and the message IMD002I LBL ERR is issued. Message IMD001A is 
reissued and the operator must ready and specify the output device 
again. The operator can mount a non-labeled scratch tape and enter 
the device address again, or he can enter the address of a different 
device on which a non- labeled tape has been previously mounted. 

The contents of main storage are written to the specified output 
device. Successful completion of the dump is indicated by the appearance 
of message IMD005I. At this point, the user must perform the I PL 
procedure in order to restart the operating system. If the dump 
information is written to tape, it must be printed by a subsequent 
program. In the case of the low-speed version of the dump program, the 
tape output may be printed by the IEBGENER utility program, as discussed 
in IBM System/360 Operating System: Utilities, GC 28- 6586, or by 
IMDPRDMP. Tape output produced by the high-speed version of the dump 
program must be formatted and printed by IMDPRDMP. 

Note 1 : If the printer runs out of paper during the execution of the 
dump program, insert more paper and start the printer. IMDSADMP will 
continue normally. 

Note 2 ; Neither version of the dump program issues a mode set command 
to the tape output device. If output is to a 7- track tape, additional 
JCL parameters are required on the input DD statement for programs which 
read the dump tape. When the dump has been written to a 7-track tape, 
the following must be coded as subparameters of the DCB parameter: 
DEN=2,TRTCH=C. If the data conversion feature is not included on the 
7-track device, the TRTCH= keyword myust be omitted. 
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Operational Considerations 



Following are points to which careful consideration should be given when 
using the stand-alone dump service aid (IMDSADMP) : 

• If IMDSADMP output is to tape, the tape volume mounted must be 
non-labeled. If the output volume has standard labels, or if an I/O 
error occurs during this checking procedure, the tape volume is 
unloaded and message IMD002I is issued. A. non-labeled scratch tape 
(e.g., one with a tapemark as the first record) must then be mounted 
and IMDSADMP reloaded. 

• Non-labeled scratch tapes on 7-track devices may not be accepted by 
IMDSADMP. The volume on a 7-track unit will be unloaded unless it is 
one of the following types : 

1. A scratch tape with a tapemark as the first record, or 

2. A non-labeled tape with data recorded in the mode: 800 BPI # odd 
parity, translator off. For example, a dump tape previously 
produced by IMDSADMP. 

• If the user specifies the disk resident version of IMDSADMP he must 
consider the direct access space requirements. The I PL text, dump 
program records, and work record are contained on cylinder 0, track 
of the volume on which the dump program resides (see Figure 
SADMP-2). This direct access volume must have the standard 

8 0- character volume label, and may have one to seven 80-character 
user labels, on cylinder 0, track 0. The number of user labels 
possible is dependent upon the dump program output option specified 
by the user. 

Number of User 
Option Specified Labels Possible 

High-Speed 1 to 7 

Low-Speed to Printer 1 to 6 

Low-Speed to Tape 1 to 5 

• Depending on the track capacity of the IMDSADMP resident direct 
access device, the user may need to limit the number of user labels 
written on that track; see Figure SADMP-10. 1. 

• When specifying the IMDSADMP macro instruction operands, PROTECT=YES 
must not be coded if the storage protect feature is not implemented, 
as the dump program will not execute. 

• If the dump program resides on a direct access volume, the IPL text 
and dump program records are contained on cylinder 0, track 0, of 
that volume. The resident volume must have a standard 80-character 
label on cylinder 0, track 0. With the IBM System/360 Disk Operating 
System, the volume table of contents for that volume must begin at 
some location other than cylinder 0, track 0. 

• If IPL=cuu or IPL=191 is specified or implied, the direct access 
volume that contains the dump program must be mounted on the 
specified direct access device during the initialization step. 
After initialization the volume may be moved to any other applicable 
device. 
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• If the IMDSADMP macro definition resides in either the component 
library or a private library, the user should not attempt to 
concatenate either library to SYSl.MACLIB unless the attributes and 
device type are identical. 

• Neither version of the dump program issues a mode set command. 
Therefore, output to a 7-track tape may produce a volume that cannot 
be read by other programs. If output is to a 7-track tape, 
additional JCL parameters are required on the input DD statement for 
programs which read the dump tape. When the dump has been written 
to a 7-track tape, the following must be coded as subparameters of 
the DCB parameter: DEN=2,TRTCH=C. If the data conversion feature is 
not included on the 7-track device, the TRTCH= keyword must be 
omitted . 

• If the user specifies the START= parameter for the disk resident 
version of IDSADMP, the address he specifies must be equal to or 
greater than 128 or X'SO*. The address specified must also be at 
least 48 bytes (X'SO*) less than the maximum main storage address of 
the CPU on which the dump program is to be executed. 

• The low- speed version of the dump program must reside on a direct 
access device. The high-speed version may reside on either a tape 
or direct access device. 

• Initialization of a disk-resident dump program must be performed on 
a System/360 model 40, or higher. 

• The output tape produced by the high-speed version of the dump 
program must be printed by IMDPRDMP. 

• The output tape produced by the low-speed version of the dump 
program may be printed by the IEBGENER utility program or IMDPRDMP. 

• Error recovery during dump execution: If output is to tape, a 
failing I/O operation is retried indefinitely. Before the operation 
is retried, the tape volume is backspaced and a record gap is erased. 

• Occurrence of a Unit Check or Unit Exception condition on the 
printer as the result of an I/O operation will cause the WRITE 
Operation to be retried until the condition is cleared. If the Unit 
Check condition exists when the I/O operation is initiated, the 
program will enter a two instruction loop. When the Unit Check 
condition is cleared (that is, when the device is made ready), the 
dump operation will continue. 

• Occurrence of the Unit Check condition on the first I/O operation to 
the console causes the dump to be written to the device specified by 
OUTPUT=. 

• IMDSADMP supports only the following devices: 

1. Printer - 140 3, 3211 

2. TAPE - 2400 series, 3400 series 

3. DASD - 2311,2312,2313,2314,2318, 
2319,2301,2303,2305,3330 

4. Card reader - 2540 

5. Console - 1052,30 66,3210,3215,5450 
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Note ; IMDSADMP uses data chaining when writing a high-speed dump. 
Therefore, when running IMDSADMP on a System/360 Model 30, do not direct 
output to a tape device with a high data transfer rate. 

• Location X'lO* is used by the system to locate the CVT. The IPL 
procedure used to load the dump program when using IMDSADMP destroys 
this location. Therefore, if there is reason to believe that this 
location has been overlaid during processing by the system, its 
value must be manually displayed and recorded prior to taking the 
stand-alone dump. 

When using IMDSADMP on a multiprocessing (MP) system, the following 
additional points should be considered; 

• IMDSADMP should be permanently resident on a shared volume to permit 
IMDSADMP to be loaded by either CPU. 

• IMDSADMP must be loaded by the CPU whose prefix switch is set to 
disable. If the CPU that is not prefixing has had a hardware 
malfunction, set the prefix switch on the other CPU to disable and 
load IMDSADMP from that CPU. 

• For IMDSADMP to dump the registers of both CPUs, both CPUs must be 
in multiprocessing mode when IMDSADMP is executed. 
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Error Conditions 



This section describes various error conditions which can occur during 
execution of IMDSADMP. During such execution, it is imperative that the 
data in core to be dumped remain unaltered. Error recovery is 
consequently limited to providing attempted retries of I/O operations 
and presenting an indication of the error. If an error occurs, the 
system operator should note the error indication (IAR content, wait 
state, loop, load light on, or incomplete output) , and execute the 
program again. If the problem recurs, call IBM for programming support. 

Error Handling 

All operations of IMDSADMP are executed with machine check disable. A 
machine check during IMDSADMP execution will remain pending so that the 
dumping function can continue to completion. When dump execution is 
complete, a wait PSW is loaded by IMDSADMP to enable machine checks. Any 
pending machine check interrupts will be presented at this time. 

All I/O operations in IMDSADMP are done with the system mask 
disabled for I/O interrupts. I/O status is received by IMDSADMP through 
use of the TIO instruction. 



Errors During Initialization of Direct Access Resident Version 

1. Loading of Initialization Program 

a. If, during IPL, an I/O error occurs on the card reader, 
the CPU will enter a wait state with the console load 
light on. 

b. Loading of the initialization program is done by IMDSADMP, 
executing within the CPU. Each I/O operation to the card 
reader is checked for unit check, unit exception or any 
condition indicated in the second status byte in the CSW. 
If any of these conditions is present, a one-instruction 
loop is entered. 

2. Once the initialization program is loaded, I/O errors can occur 
only on the direct access device being initialized. I/O errors 
on this device are indicated by light settings in the IAR. 
Possible indications and remedial actions are described in the 
initialization discussion in this section. 

3. A program interrupt during initialization will result in the 
program entering a WAIT condition with X'03 1 set in the IAR. 

Errors During Dump Execution 

If an I/O error should occur on the load device during loading of the 
dump program from tape or direct access, the CPU will enter a wait state 
with console load light on. 
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The program check new PSW is modified after the storage location 
containing that PSW is written. A program interrupt before this PSW has 
been initialized cannot be indicated, since to do so would overlay the 
data to be dumped. Therefore, the result of a program check at this time 
is unpredictable. If a program check occurs after this PSW has been 
modified, the dump will be terminated normally with message IMD005I, but 
output will be incomplete. 

1. Direct Access Resident Dump Program 

IMDSADMP tests console availability by issuing a TIO instruction to 
the console device. If the resulting condition code is zero, the 
console is assumed to be operational. All other condition codes 
indicate to IMDSADMP that the console is not operational; therefore, 
the dump is written to the output device specified in the OUTPUT 
parameter of the macro instruction. 

Before each I/O operation, a TIO instruction is issued to the device 
to be used. If the device is not available the TIO instruction is 
repeated until the device is ready. When an I/O operation 
completes, the CSW is checked for the following conditions: 

Channel program check. 

Protection violation. 

Channel data check. 

Interface control check. 

Chaining check. 

If any of these conditions occurs, it is indicated by message 
IMD003I CHAN ERR and execution is terminated. If unit check is indicated 
in the CSW and the I/O operation was not being performed on the dump 
output device, the operation is retried until the unit check condition 
is cleared. Unit exception conditions on devices other than the output 
device are ignored. 

a. Printer Output 

Condition code zero is the only status accepted on the SIO 
instruction. The SIO is repeated until the condition code 
becomes zero (that is, when the device is made ready). If an 
I/O operation completes with either unit check or unit 
exception, then the write operation (not the spacing command) 
is retried until the condition is cleared. The dump then 
continues. 

b. Tape Output 

Condition Code 1 following the SIO instruction is interpreted 
as an error condition and the error recovery procedure for that 
device is entered. If unit exception is indicated when an 
operation to tape completes, message IMD004I EOR is issued and 
execution is terminated. A unit check condition will initiate a 
recovery channel program which will be retried repeatedly until 
the unit check condition is cleared. 



SADMP 



Chapter 10: IMDSADMP 271 



2. Tape Resident Dump Program 

I/O operation are issued only to the tape device from which the dump 
program was loaded. If condition codes 2 or 3 occur as a result of 
the SIO instruction, the SIO instruction is repeated until the 
condition is cleared. A unit exception condition is ignored. If a 
unit check condition occurs, a recovery channel program will be 
initiated and repeated until the condition is cleared. A condition 
code of 1 occurring as a result of an instruction also causes the 
recovery channel program to be executed. 

Macro Expansion Messages 

During the expansion of the IMDSADMP macro definition, the operands of 
the IMDSADMP macro instruction statement are examined for validity. If 
an invalid operand value is detected, a diagnostic error message is 
issued, indicating the error and showing what corrective action was 
taken, or what assumption has been made. The message texts, their 
severity codes, and their meanings are shown in the table below: 

ALTERNATE CONSOLE AVAILABLE ONLY FOR CPU=( 360, MP) . ALTERNATE IGNORED 

Explanation: The user specified two consoles in the CONSOLE= 
parameter, but did not specify CPU=(,MP). A second console can be 
specified only for a multiprocessing system (MP). The assembly 
continues, and the alternate console definition is ignored. 

Severity Code: 4. 

CONSOLE DEVICE TYPE XXXX NOT SUPPORTED, 1052 CONSOLE ASSUMED 

Explanation: IMDSADMP does not support the device specified in the 
CONSOLE= parameter. A 1052 console is assumed. 

S ever ity code : 4 

CPU VALUE ERROR, S/360 ASSUMED 

Explanation: The value specified by the user for the CPU= parameter 
was not one of the valid values, 360 or 370. The default value of 
360 is assumed. 

Severity Code: 4. 

CPU=xxx INVALID, CPU= (yyy,NOMP) IS ASSUMED 

Explanation: The second subparameter of the CPU parameter is 
invalid. The first parameter has already been tested. The second 
subprarameter must be either MP or NOMP. xxx is the entry made by 
the user; yyy is the CPU type, either 360 or 370, entered as the 
first parameter of CPU=. The assembly continues, and NOMP is 
assumed. 

Severity Code: 4. 

CPU=xxx INVALID, CPU=(360,MP) IS ASSUMED 

Explanation: The user has specified CPU-(360,MP) , which is invalid. 
The MP option of IMDSADMP is available only for the M65MP system, 
for which the CPU= parameter must specify CPU= (360 ,MP) . IMDSADMP 
assembly continues with CPU=(360,MP) assumed. 

Severity Code: 4. 
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HIGHSPEED MEMORY DUMP REQUIRES TAPE OUTPUT, TYPE = HI IGNORED 

Explanation: The user has attempted to generate the high-speed 
version of the dump program with the output directed to a printer. 
The output must be assigned to a tape device. The TYPE=HI operand 
has been ignored and output has been assigned to the printer. Check 
the specifications of the OUTPUT= operand. 

Severity Code: 4. 

IMDSADMP MACRO ALLOWED ONLY ONCE PER ASSEMBLY 

Explanation: The use has attempted to issue the IMDSADMP macro 
instruction more than once within this assembly. 

Severity Code: 8. 

INVALID CHARACTER IN DECIMAL PARAMETER, START= XXX INVALID, X 'SO* USED 

Explanation: The value specified for the START= operatind was not 
decimal. The value was coded as xxx. Review the description of the 
START= operand. The two parts of the message in this discussion may 
be issued independently. 

Severity Code: 4. 

MP OPTION NOT AVAILABLE FOR IPL=TAPE. IPL=TAPE IS ASSUMED 

Explanation: Parameter conflict. The user specified both the MP 
and IPL=TAPE parameters. MP requires the direct access resident 
option. The assembly continues, and the MP option is ignored. 

Severity Code: 4. 

OUTPUT = xyyy IS INVALID. OUTPUT = POOE USED 

Explanation: The channel and unit address (yyy) specified for the 
output device is invalid. (x indicates the device type, ■ P" for a 
printer and 'T* for a tape device.) The printer (POOE) will be used 
for output if possible. 

Severity Code: 4. 

x DENOTES INVALID OUTPUT DEVICE, A PRINTER IS ASSUMED 

Explanation: The device type indicator of the OUTPUT= operand was 
specified as other than 'P* (for a printer) or *T* (for a tape 
device); x is the character that was coded. POOE is assumed. 

Severity Code: 4. 
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Chapter 11: IMASPZAP 

Verifies and/or replaces instructions and/or data in a load module. 
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Introduction 



IMASPZAP is a service aid program that operates under control of the 
System/36 Operating System. This program is designed to enable 
authorized personnel to: 

• Inspect and modify instructions and data in any load module that 
exists as a member of a partitioned data set. 

• Inspect and modify data in a specific data record that exists in a 
direct access data set. 

• Dump an entire data set, a specific member of a partitioned data 
set, or any portion of a data set residing on a direct access device. 

• Update the System Status Index (SSI) in the directory entry for any 
load module. 



Capabilities of SPZAP 

The functions of IMASPZAP provide the user with many capabilities, 
of these are suggested below. 



Three 



• By using the inspect and modify functions of IMASPZAP, programming 
errors that require only the replacement of instructions in a load 
module can be fixed on the spot, thus eliminating the need for 
immediate recompilation of the program. 

• In another instance, the user may want to obtain a storage dump for 
the purpose of diagnosing a problem. The modify function of IMASPZAP 
could be used to alter an instruction in the problem program and 
cause the execution of the job to terminate at a precise location. A 
dump of storage would automatically be given at the forced 
termination of the program. 

• Since IMASPZAP can replace data directly on a direct access device, 
it could also be used to reconstruct VTOCs or data records that may 
have been destroyed as the result of a device I/O error or a 
programming error. 

Monitoring the Use of SPZAP 

Because IMASPZAP provides the ability to modify data on a direct access 

storage device, misuse of this program could result in serious damage to 

both user and system load modules or data sets. To protect against the 

occurrence of such damage by IMASPZAP, two means of controlling its use 
are suggested below: 

• One means of exercising control is provided by IBM under MFT II and 
MVT . The System Management Facility (SMF) provides a system 
interface with user exit routines for the purpose of monitoring the 
job stream. Essentially, this facility, when incorporated into the 
system, affords an internal means of checking to see whether a 
particular user is authorized to execute the program specified on 
the EXEC job control language statement. (For further information 
on the SMF facility, refer to the publication Data Management for 
System Programmers, GC28-6550.) 
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A second means of protecting against unauthorized use of IMASPZAP is 
to store IMASPZAP in a "password protected" private library. If 
IMASPZAP is located in such a library, any persori trying to execute 
this program would be required to include in his JCL statements a 
JOBLIB DD statement defining the library, and at initiation time he 
would be required to give the password associated with the library. 
Only personnel knowing the password would then be able to execute 
IMASPZAP. Password protected libraries are discussed in the 
publication Data Management for System Programmers, GC28-6550. 
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Data Modification and Inspection 



IMASPZAP can be used to inspect and modify data in either a specific 
record of a direct access data set or a load module that is part of a 
partitioned data set. The specific functions performed are governed by 
the use of control statements. 

The modification of data is implemented through the REP control 
statement. The REP operation allows the user to replace instructions or 
data at a specific location in a load module or physical record. 

The inspection of data is implemented through the VERIFY statement. 
This operation is provided to protect the user against erroneous 
replacement of data and to allow him to conditionally modify data. The 
VERIFY function should be used to check the contents of a specific 
location in a load module or physical record prior to replacing it. If 
the contents at the specified location do not agree with the contents as 
specified in the VERIFY statement, subsequent REP operations will not be 
performed. 

Note : Although it is not required that the VERIFY function be 
employed prior to the REP function, it is strongly recommended that this 
control function be utilized to avoid possible errors in the replacement 
of data. 



Inspecting and Modifying a Load Module 

To reference data in a load module, the user must supply IMASPZAP with 
the member name of the load module through the use of a NAME control 
statement. The load module must be a member of the partitioned data set 
identified by the SYSLIB DD statement included in the execution JCL. 

If the load module being inspected or modified contains more than 
one control section (CSECT) , the user must also supply IMASPZAP with the 
name of the CSECT that is to be involved in the operations of the 
program. If no CSECT name is given in the NAME statement, IMASPZAP will 
assume that the control section to be referenced is the first one 
encountered in searching the load module. 



IMASPZAP will pi 
CSECT Identification 
operation associated 
section contained in 
automatically after 
statement have been 
placed in the IDR wi 
Control Statements" 



ace descriptive maintenance data in the IMASPZAP 
Record (IDR) of the load module whenever a REP 
with a NAME statement is performed on a control 
that module. This function will be performed 
all REP statements associated with the NAME 
processed; any optional user data that has to be 
11 come from the IDRDATA statement (See "IMASPZAP 
for an explanation of the IDRDATA statement) . 



Accessing a Load Module 

Once the CSECT has been found, IMASPZAP must locate the data that is to 
be verified and replaced. This is accomplished through the use of offset 
parameters in the VERIFY and REP statements. These parameters are 
specified in hexadecimal notation, and define the displacement of the 
data relative to the beginning of the CSECT. For example, if a 
hexadecimal offset of X'40' is specified in a VERIFY statement, IMASPZAP 
will find the location that is 64 bytes beyond the beginning of the 
CSECT identified by the NAME statement, and begin verifying the data 
from that point. 
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Normally, the assembly listing address associated with the 
instruction to be inspected or modified can be used as the offset value 
in the VERIFY or REP statement. However, if a CSECT has been assembled 
with other CSECTs so that its origin is not at assembly location zero, 
then the locations in the assembly listing do not reflect the correct 
displacements of data in the CSECT. The proper displacements must be 
computed by subtracting the assembly listing address delimiting the 
start of the CSECT from the assembly listing address of the data to be 
referenced. 

To eliminate the need for such calculations and allow the user to 
use the assembly listing locations, IMASPZAP provides a means of 
adjusting the offset values on VERIFY and REP statements. This is 
achieved through the use of the BASE control statement. This statement 
should be included in the input to IMASPZAP immediately following the 
NAME statement that identifies the CSECT. The parameter in the BASE 
statement must be the assembly listing address (in hexadecimal) at which 
the CSECT beings. IMASPZAP will then subtract this value from the 
offset specified on any VERIFY or REP statement that follows the BASE 
statement, and use the difference as the displacement of the data. 

The usage of the control statements mentioned in the above 
discussion is explained in detail in the section entitled "IMASPZAP 
Control Statements." 

Figure SPZAP-1 exemplifies an assembly listing showing more than one 
control section. If a user were to reference the second CSECT 
(IEFCVOL2), he could include in the input to IMASPZAP a BASE statement 
with a location of 0398. Then, to refer to the subsequent LOAD 
instruction (L R2,LCTJCTAD) , he could use an offset of 03 9A in the 
VERIFY or REP statements that follow in the IMASPZAP input stream. 





LISTING TITLE 
















LOC 


OBJECT CODE 


ADDR1 


ADDR2 


STMT 


SOURCE 


STATEMENT 




000000 










1 


IEFCVOL1 


CSECT 




10000017 


000384 


00000000 








378 
379 


VCNQMSSS 

* 


DC 


V(IEFQMSSS) 


55800017 
56000017 


000388 


00000000 








380 


VCMSG15 


DC 


V(IEFVMG15) 


56100017 


00038C 


D200 1000 


8000 


00000 


00000 


381 
382 


MVCMSG 

* 


MVC 


0(1,R1),0(R8) 


56200017 
56300017 


000392 


D200 1001 


1000 


00001 


00000 


383 
384 


MVCBLNKS 
* 


MVC 


1(1,R1),0(R1) 


56400017 
56500017 


000398 










386 


IEFCV0L2 


CSECT 




56600017 


000398 


0590 








387 




BALE 


R9,0 


56700017 


00039A 










388 




USING 


*,R9 


56800017 


00039A 


5820 C010 






00010 


389 




L 


R2,LCTJCTAD 


56900017 



Figure SPZAP-1. 



Sample Assembly Listing Showing Multiple Control 
Sections 
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Inspecting and Modifying a Data Record 

To reference a specific data record, the user must specify the actual 
cylinder, track and record numbers that comprise the direct access 
address associated with it. The CCHHR control statement used by 
IMASPZAP relates this information to the program. This CCHHR address 
must be within the limits of the direct access data set defined in the 
SYSLIB DD control statement. 

To provide a record of modifications to potentially sensitive data 
records, a REP operation associated with a CCHHR statement will cause 
IMASPZAP to write message IMA121I to the operator. 

Accessing a Data Record 

When this type of reference is used, IMASPZAP is able to read directly 
the physical record the user wants to inspect or modify. The offset 
parameters specified in subsequent VERIFY and REP statements are then 
used to locate the data that is to be verified or replaced within the 
record. These offsets must be specified in hexadecimal notation and 
define the displacement of data relative to the beginning of the record. 
Also, the user must include the length of any key data field in the 
calculation of his offset values. This is because IMASPZAP considers the 
key associated with a direct access record to be part of it. 
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Dumping Data 



The dumping options provided by IMASPZAP constitute a very necessary 
facility for the user. By providing a visual picture of the load module 
or data record that has been changed, the dump feature allows the user 
to double check the modifications he has made. 

There are two formats in which the data may be dumped. In the first 
(formatted hexadecimal dump) the data requested for the dump is printed 
in hexadecimal. The second format (translated dump) includes the 
hexadecimal data, a translation of all printable characters, and, where 
applicable, an indication of mnemonic operation code equivalents. (Refer 
to "IMASPZAP Output" for figures showing these two kinds of dumps.) 

The DUMP and ABSDUMP statements are the control statements used to 
specify the options described above. A user may also indicate the 
portion of the data he wants IMASPZAP to dump. The operation code in the 
DUMP and ABSDUMP statements indicates the kind of dump wanted; the 
parameters identify the portion of the data to be dumped. (Use of the 
DUMP and ABSDUMP statements is discussed in detail under the topic 
"IMASPZAP Control Statements.") 
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Updating System Status Information 



The system status index (SSI) is a 4-byte field created (upon request) 
in the directory entry of a load module at linkage editor processing 
time. Its primary function is to retain information pertaining to the 
status of the load module. This index is useful for keeping track of any 
modifications that are performed on a load module. The IMASPZAP program 
will, as part of its normal function, update the system status index 
(when there is one) to reflect local modification when a replacement of 
data in a module is effected. The user can also, by means of the SETSSI 
control statement, insert his own U-byte information field into the SSI, 
overlaying the information originally stored there. However, for 
purposes of maintaining an accurate record of the status of a load 
module, the SETSSI statement should be used with caution. 

To ensure proper use of the SETSSI statement, an explanation of the 
location, significance, and format of the system status index is 
provided here. For more detailed information regarding the SSI, refer to 
the publication IBM System/360 Operating System: Maintenance Program, 
GC27-6918. 

The System Status Index (if it exists) is located in the last four 
bytes of the user data field in the directory entry for a load module. 
Figure SPZAP-2 shows the position of the SSI in load module directory 
entries . 



Member Name 


TTR 


C 


User Data Field 


SSI 



1 8 9 11 12 13 to 70 maximum variable 

Figure SPZAP-2. SSI Bytes in a Load Module Directory Entry 

Figure SPZAP-3 gives a breakdown of the System Status Index field 
and the flag bits used to indicate the types of changes made to the 
corresponding load module program. A detailed explanation of this field 
and its applicability to the IMASPZAP program follows. 

As shown in Figure SPZAP-3, the first byte of SSI information 
contains the member's change level. When a load module is initially 
released by IBM, its change level is set at one. Thereafter, the change 
level is incremented by one for each release that includes a new version 
of that program. If a user makes a change to the SSI for any of the 
IBM-released programs, he should take care not to destroy this 
maintenance level indicator unless he purposely means to do so. To keep 
the change level byte at its original value, he should find out what 
information is contained in the SSI before using the SETSSI function of 
IMASPZAP. 
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1 byte 


1 byte 


2 bytes 


Change 
Level 


Flag 
Byte 

1 i 


Serial 
Number 



Bits: 



JO 1 



7 / 



I 



(Reserved) 1 I 

I I 
Force Flag 1 ' 

Local Fix Flag — ' 

Program Temporary Fix Flag 1 

Dependency F lag — 

Critical Flag — — 

IBM Flag 

Figure SPZAP-3. Flag Bits in the System Status Index Field 



.J 



Note : IMBLIST can be used to determine the SSI setting prior to making 
any modification to this status indicator. 

The second byte of the SSI is termed the flag byte . Bits within the 
flag byte contain information reflecting the member's maintenance 
status. Using IMASPZAP, a user need only be concerned with two of the 
eight bits: 

• The local fix flag contained in the third bit (bit 2) is used to 
indicate that the user has modified a particular member. (This is 
opposed to IBM PTF changes.) IMASPZAP sets this local fix flag bit 
on after successful completion of a modify operation to a load 
module. 

• The program temporary fix flag (relative bit 3) is set on when an 
IBM- authorized program temporary fix (PTF) is applied to a system 
library to correct an erroneous IBM module. 

All other bits in the flag byte should be retained in the SSI as 
they appeared before the SETSSI operation was enacted, so as not to 
interfere with the normal system maintenance procedures. 

The third and fourth bytes of the system status index are used to 
store a serial number that identifies the first digit and the last three 
digits of a PTF number. These bytes are not altered by IMASPZAP unless 
the user deliberately changes them with a SETSSI statement. 
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Operational Considerations 



Technical considerations for the use of the IMASPZAP service aid program 
are listed below: 

• IMASPZAP utilizes system OPEN, and therefore cannot modify 
"read-only" or inspect "write-only" password protected data sets 
unless the correct password is provided at OPEN. 

• Unexpired data sets such as system libraries cannot be modified 
unless the operator replies r 00, "U* to the expiration message that 
occurs during OPEN. 

• If IMASPZAP is used to modify an operating system module that is 
loaded only at IPL time, an additional IPL is required to invoke the 
new version of the altered module. 

• The SYSLIB DD statement cannot define a concatenated data set. 

• IMASPZAP supports only the following direct access devices: 2311, 
2312, 2313, 2314, 2318, 2319, 2301, 2302, 2303, 2305, 2321, and 
333 0. One of these devices must be specified in the unit parameter 
of the SYSLIB DD statement. 

• IMASPZAP is a non-reusable module. 

• When modifying a system data set, such as SYS1. LINKLIB, DISP=OLD 
should be specified on the SYSLIB DD statement. 
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Executing IMASPZAP 



Both JCL and control statements are required to execute IMASPZAP. The 
following sections describe the required statements. 

JCL Statements 

SPZAP can be executed using the following job control statements. The 
minimum region for execution is 13K plus the larger of 3K or the 
blocks ize in bytes for the data set specified on the SYSLIB DD 
statement. 

JOB Statement 

marks the beginning of the job. 
EXEC Statement 

invokes the program IMASPZAP. 

SYS PRINT DD Statement 

defines a sequential output message data set, that can be written on 
a system printer, a magnetic tape volume, or a direct access volume. 
This statement is required for each execution of IMASPZAP. 

SYSLIB DD Statement (required for each execution) 

defines the direct access data set that will be accessed by IMASPZAP 
when performing the operations specified on the control statements. 
The DSNAME parameter and DISP=OLD or DISP=SHR must always be 
defined. The VOLUME and UNIT parameters are necessary only of the 
data set is not cataloged. When this data set is the VTOC, 
DSNAME=F0RMAT4.DSCB must be specified. This statement cannot define 
a concatenated data set. 

SYS ABEND DD Statement 

defines a sequential output data set to be used in case IMASPZAP 
terminates abnormally. This data set can be written to a printer, a 
magnetic tape volume, or a direct access volume. 

SYS IN DD Statement 

defines the input stream data set that contains IMASPZAP control 
statements. 

IMASPZAP Control Statements 

The IMASPZAP control statements (entered either through the user's input 
stream or through the system console) are used to define the processing 
functions to be enacted during a particular execution of IMASPZAP. The 
statements may be grouped into three categories depending upon the 
program's usage of them: those that are used to reference load modules 
| (NAME, DUMP, DUMPT, IDRDATA, SETSSI, BASE), those that refer to specific 
records within a data set (CCHHR, ABSDUMP, ABSDUMPT) , and those that can 
be used to specify processing control for either type of input mentioned 
in the first two categories (VERIFY, REP, CONSOLE). 
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IMASPZAP control statements must be coded according to the following 
rules : 

IMASPZAP control statements may begin in any column, but the 
operation name must precede the parameters. 

There must be at least one blank between the specified operation 
name and the first parameter. 

All parameters must also be separated by at least one blank space. 

Data field parameters may be formatted with commas for easier visual 
check, but imbedded blanks within data fields are not permitted. 

Data and offset parameter values must be specified as a multiple of 
two hexadecimal digits . 

The size of an IMASPZAP control statement is 80 bytes. 

Following the last required parameter and its blank delimiter, the 
rest of the control statement space can be used for comments. 
Exceptions to this are the NAME and DUMP control statements. If the 
CSECT parameter is omitted from either of these statements, the 
space following the load module parameter should not be used for 
comments. 

• A record beginning with an asterisk and a blank is considered to be 
a comment statement. 

The control statements are the following: 

NAME memoer [csect] 

used to identify a CSECT in a load module that is to be the object 
of subsequent VERIFY, REP, or SETSSI operations. The parameters are: 



member 



the member name of the load module that contains the control 
section in which the data to be inspected and/or modified is 
resident. The load module must be a member of the partitioned 
data set defined by the SYSLIB DD statement. 



csect 

the name of the particular control section that contains the 
data to be verified or replaced. When this parameter is 
omitted, it is assumed that the first CSECT contained in the 
load module (if there is more than one) is the one to be 
referenced. If there is only one CSECT in the load module, this 
parameter is not necessary. 

Note: More than one NAME statement can be defined in the input 
to IMASPZAP. However, the VERIFY, REP and SETSSI statements 
associated with each NAME statement must immediately follow the 
NAME statement to which they apply. 

CCHHR record address 

used to identify a physical record on a direct access device that is 
to be modified or verified. The record must be in the data set 
defined by the SYSLIB DD statement. Any immediately following REP or 
VERIFY statements will reference the data in the specified record. 

The parameter is: 
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record address 

the actual direct access device address of the record 
containing the data to be replaced or verified. It must be 
specified as a 10-position hexadecimal number in the form 
cccchhhhrr. For all direct access devices other than the 2321 
data cell, cccc is the cylinder, hhhh is the track, and rr is 
the record number. For example, 0001000A01 addresses record 1 
of cylinder 1, track 10. 

In the case of the 2321 data cell, cccc indicates the subcell 
and strip; hhhh indicates the cylinder and track; rr indicates 
the record number. The bin number to which the CCHHR applies is 
determined by the UNIT parameter in the SYSLIB DD statement. 
For example, if the SYSLIB DD specifies UNIT=2321/2 and the 
CCHHR statement specifies 0102000103, then record 3 of subcell 
1, strip 2, cylinder 0, track 1 in bin 2 will be retrieved. 

In both cases a zero record number is invalid and will default 
to 1. 

Note ; More than one CCHHR statement can be defined in the input to 
IMASPZAP. However, the VERIFY, REP and SETSSI statements associated 
with each CCHHR statement must immediately follow the specific CCHHR 
statement to which they apply. 

[VERIFY! offset expected content 

VER 

causes the contents at a specified location within a control 
section or physical record to be compared with the data the user 
supplies in the statement. If the two fields being compared are not 
in agreement, no succeeding REP or SETSSI operations, pertinent to 
the NAME or CCHHR statement in effect, will be performed. The 
parameters are: 

offset 

the hexadecimal displacement of the data to be inspected in a 
CSECT or record. This displacement does not have to be aligned 
on a fullword boundary, but it must be specified as a multiple 
of two hexadecimal digits (0D, 021C, 014682, etc.). If this 
offset value is outside the limits of the CSECT or data record 
defined by the preceding NAME or CCHHR statement, the VERIFY 
statement will be rejected. When inspecting a record with a 
key, the length of the key should be considered in the 
calculation of the displacement; i.e., offset zero is the first 
byte of the key. 

expected content 

defines the bytes of data that are expected at the specified 
location. As with the offset parameter, the number of bytes of 
data defined must be specified as a multiple of two hexadecimal 
digits. If desired, the data within the parameters may be 
separated by commas (never blanks), but again, the number of 
digits between commas must also be a multiple of two. For 
example, the data may look like this: 

58U0C032 (without commas), 

or like this : 

5840, C032 (with commas) 
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If all the data will not fit into one VERIFY statement (8 0-byte 
logical record), then another VERIFY statement must be defined. 

A formatted dump of the CSECT or data record is automatically 
provided following each rejected VERIFY, so that the cause of the 
rejection can be determined. Subsequent REP (replacement) or SETSSI 
operations will not be performed if a verification is rejected, but 
other VERIFY operations will be performed, permitting complete 
verification in one execution of IMASPZAP. The error condition 
caused by the VERIFY reject will be in effect only until another 
NAME or CCHHR statement is encountered. Any subsequent VERIFY or REP 
statements can then be processed. 

REP offset data 

used to modify data at a specified location in a CSECT or physical 
record that has been previously defined by a NAME or CCHHR 
statement. The data specified on the REP statement will replace the 
data at the record or CSECT location stipulated in the offset 
parameter field. This replacement is on a "one for one" basis; that 
is, one byte of data defined in the statement replaces one byte of 
data at the specified location. The parameters are: 



offset 



is the hexadecimal displacement of the data to be replaced in a 
CSECT or data record. This displacement need not address a 
fullword boundary, but it must be specified as a multiple of 
two hexadecimal digits (OD, 02C8, 001C52) . If this offset 
value is outside the limits of the data record (physical block) 
or CSECT being modified, the replacement operation will not be 
performed. When replacing data in a record with a key, the 
length of the key should be considered in the calculation of 
the displacement; i.e., offset zero is the first byte of the 
key. 



data 



defines the bytes of data that are to be inserted at the 
specified location. As with the offset parameter, the number 
of bytes of data defined must be specified as a multiple of two 
hexadecimal digits. If desired, the data within the parameter 
may be separated by commas (never blanks) , but again, the 
number of digits between commas must also be a multiple of two. 
For example, a REP data parameter may look like this: 

4160B820 (without commas) 

or like this : 

4160, B820 (with commas). 

If all the data to be modified will not fit into one REP 
statement (80- byte logical record), then another REP statement 
must be defined. 

NOTE: ALTHOUGH IMASPZAP DOES NOT REQUIRE THE USER TO VERIFY A 
LOCATION BEFORE PERFORMING A REP OPERATION, IT IS ADVISABLE TO CHECK 
THE CONTENTS TO MAKE SURE THAT THE DATA BEING CHANGED IS, IN FACT, 
WHAT THE USER EXPECTS IT TO BE. 

The user should also keep in mind the fact that IMASPZAP, as a 
part of its normal function, updates the system status index (SSI) 
for the specified module upon successful completion of the last REP 
operation performed on a control section of that particular module. 
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For a more complete explanation of the value of the SSI to the 
maintenance of a load module, refer to "Updating System Status 
Information" in this chapter. 

Two programming notes that are pertinent to this discussion of 
the REP statement are listed below: 

• If multiple VERIFY and REP operations are to be performed on a 
CSECT, then all the VERIFY statements should precede all the 
REP statements. This procedure will ensure that all the REP 
operations are ignored if a VERIFY reject occurs. 

• When a record in the VTOC (i.e., a DSCB) is accessed for 
modification, message IMA117D is written to the console. No 
message is issued, however, when an ABSDUMPT operation is 
performed on the VTOC. 

IDRDATA xxxxxxxx 

causes IMASPZAP to place up to eight bytes of user data into the 
IMASPZAP CSECT Identification Record of the load module; this is 
only done if a REP operation associated with a NAME statement is 
performed and the load module has been processed by the Linkage 
Editor to include CSECT Identification Records. The parameter is: 

xxxxxxxx 

is the eight (or less) bytes of user data (with no imbedded 
blanks) that is to be placed in user data field of the IMASPZAP 
IDR of the load module. If more than eight characters are in 
the parameter field only the first eight characters will be 

used. 

The IDRDATA statement is valid only when used in conjunction with 
the NAME statement. It must follow its associated NAME statement and 
precede any DUMP or ABSDUMP statement. IDRDATA statements associated 
with CCHHR statements will be ignored. 

SETSSI xxyynnnn 

places user-supplied system status information in the PDS 
(partitioned data set) directory entry for the library member 
specified in the preceding NAME statement. The SSI, however, must 
have been created when the load module was link edited. The 
parameter is: 

xxyynnnn 

represents the 4 bytes of system status information the user 
wishes to place in the SSI field for this member. Each byte is 
supplied as two hexadecimal digits signifying the following: 

xx - change level 

yy - flag byte 

nnnn - modification serial number 

If an error has been detected in any previous VERIFY or REP 
operation, the SETSSI function will not be performed. 
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Note ; Since all bits in the SSI entry are set (or reset) by the 
SETSSI statement, extreme care should be exercised in its use to 
avoid altering information vital to the depiction of the maintenance 
status of the program being changed. (See the discussion in this 
chapter entitled "Updating System Status Information.'*) 

(DUMP ) member csect 
( DUMP! J ALL 

used to dump a specific control section or all control sections in a 
load module. The format of the output of this dump is hexadecimal 
(see the discussion in this chapter entitled "IMASPZAP Output"). The 
DUMPT statement differs from the DUMP statement in that it also 
gives the user an EBCDIC and instruction mnemonic translation of the 
hexadecimal data. The parameters are: 



member 



the member name of the load module that contains the control 
section (s) to be dumped. (Note: This load module must be a 
member of a partitioned data set that is defined by the SYSLIB 
DD statement.) 



csect 

defines the name of the particular control section that is to 
be dumped. To dump all the CSECTs of a load module, code "ALL" 
instead of the CSECT name; if the CSECT parameter is omitted 
entirely, it is assumed that the user means to dump only the 
first control section contained in the load module. 

(ABSDUMP ) rstartaddr stopaddr) 

(ABSDUMPT/ jmembername [ 

(ALL ' 

These statements are used to dump a group of data records, a member 
of a partitioned data set, or an entire data set, as defined in the 
SYSLIB DD statement. If the key associated with each^ record is to be 
formatted, DCB=(KEYLEN=nn) , where "nn" is the length of the record 
key, must also be specified by the SYSLIB DD statement. Note that 
when dumping a VTOC, DCB= (KEYLEN=44) should be specified; when 
dumping a PDS directory, DCB=(KEYLEN=8) should be specified. 
ABSDUMP produces a hexadecimal printout only, while ABSDUMPT prints 
the hexadecimal data, the EBCDIC translation, and the mnemonic 
equivalent of the data (see "IMASPZAP Output"). The parameters are: 

startaddr 

is the absolute direct access device address of the first 
record to be dumped. This address must be specified in 
hexadecimal in the form cccchhhhrr (cylinder, track and record 
numbers) . 

stopaddr 

is the absolute direct access device address of the last record 
to be dumped, and it must be in the same format as the start 
address. 
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Note: Both addresses must be specified when this method of 
dumping records is used, and both addresses must be within the 
limits of the data set defined by the SYSLIB DD statement. The 
record number specified in the start address must be a valid 
record number. The record number specified as the stop address 
need not be a valid record number, but if it is not, the dump 
will continue until the last record on the track specified in 
the stop address has been dumped. 



membername 



ALL 



is the name of a member of a partitioned data set. The member 
can be a group of data records or a load module. In either 
case, the entire member is dumped when this parameter is 
specified. 



specifies that the entire data set defined by the SYSLIB DD 
statement is to be dumped. 

How much of the space allocated to the data set is dumped 
depends on how the data set is organized: 

For sequential data set, IMASPZAP dumps until it reaches 
end of file. 

For indexed sequential and direct access data sets, 
IMASPZAP dumps all extents. 

For partitioned data sets, IMASPZAP dumps all extents, 
including all linkage editor control records, if any exist. 



BASE xxxxxx 



used by IMASPZAP to adjust offset values that are to be specified in 
any subsequent VERIFY and REP statements. This statement should be 
used when the offsets given in the VERIFY and REP statements for a 
CSECT are to be obtained from an assembly listing in which the 
starting address of the CSECT is not location zero. 

For example, assume that CSECT ABC begins at assembly listing 
location X* 000400*, and that the data to be replaced in this CSECT 
is at location X' 000408*. The actual displacement of the data in the 
CSECT is X'08'. However, an offset of X'0408' (obtained from the 
assembly listing location X* 000408') can be specified in the REP 
statement if a BASE statement specifying X* 000400* is included prior 
to the REP statement in the IMASPZAP input stream. When IMASPZAP 
processes the REP statement, the base value X* 000400' will be 
subtracted from the offset X'0408' to determine the proper 
displacement of data within the CSECT. The parameter is: 

xxxxxxxx 

is a 6-character hexadecimal offset that is to be used as a 
base for subsequent VERIFY and REP operations. This value 
should reflect the starting assembly listing address of the 
CSECT being inspected or modified. 

The BASE statement should be included in the IMASPZAP input stream 
immediately following the NAME statement that identifies the control 
section that is to be involved in the IMASPZAP operations. The 
specified base value remains in effect until all VERIFY, REP, and 
SETSSI operations for the CSECT have been processed. 
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CONSOLE 

indicates that IMASPZAP control statements are to be entered through 
the system console. 

When this statement is encountered in the input stream, the 
following message is written to the operator: 

IMA116A ENTER IMASPZAP CONTROL STATEMENT OR END 

The operator may then key in any valid IMASPZAP control 
statement conforming to the specifications described at the 
beginning of this control statement discussion. After each operator 
entry through the console is read, validated, and processed, the 
message is reissued, and additional input is accepted from the 
console until "END" is replied. IMASPZAP will then continue 
processing control statements from the input stream until an 
end-of-file condition is detected. 

Note : The control statements can be entered through the console in 
either upper or lower case letters. 

* (Comment) 

can be used to annotate the IMASPZAP input stream and output 
listing. Any number of comment statements can be included in the 
input stream. When such a statement is encountered, IMASPZAP writes 
the entire statement to the data set specified for SYSPRINT. 

The asterisk (*) can be specified in any position of the 
statement, but it must be followed by at least one blank space as a 
delimiter. 
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JMASPZAP Output 



IMASPZAP provides two different dump formats for the purpose of checking 
the data that has been verified and/or replaced. These dumps (written to 
the SYSPRINT data set specified by the user) may be of the formatted 
hexadecimal type or the translated form. Both formats are discussed 
below in detail with examples showing how each type will look. 

The Formatted Hexadecimal Dump 

When DUMP or ABSDUMP is the control statement used, the resulting 
printout will be a hexadecimal representation of the requested data. 
Figure SPZAP-4 gives a sample of the formatted hexadecimal dump. A 
heading line is printed at the beginning of each block. This heading 
consists of the hexadecimal direct access address of the block, a 
two- byte record length field, and the names of the member and the 
control section that contain the data being printed (if the dump is for 
a specific CSECT or load module). Each printed line thereafter has a 
three-byte displacement address at the left, followed by eight groups of 
four data bytes each. The following message: 

IMA113I COMPLETED DUMP REQUIREMENTS 

is printed directly under the last line of the dump printout. 
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IMASPZAP 


VERSION 


- INSPECTS, 


MODIFIES, 


AND DUMPS 


CSECTS OR SPECIFIC DATA 


RECORDS ON 


DIRECT ACCESS STORAGE. 


NAME 


IMAPTFLS 
















DUMP 


IMAPTFLS 
















**CCHHR- 


OOC4000201 


RECORD LENGTH- CCOC 




MEMBER NAME 


ICAPTFLS CSECT NAME 


IMAPTFLS 


000000 


47FCF012 


CCC9D4C1 


D7E3C6D3 


E24BF1F9 


F00090EC 


D00C18CF 


50D0C784 


4140C780 


000020 


504D0008 


18D40700 


4510C03C 


8F00CDA4 


CA139110 


06544780 


C3AC5810 


0010F342 


000040 


D3EB1C39 


96F0D3EF 


D201D3EA 


D3EB924B 


D3EC58U 


00005811 


00045811 


00CC4141 


000060 


00181B22 


43240000 


12224780 


C3DC0507 


4004D798 


4780C0B6 


D5074C04 


07A04780 


000080 


C0B6D502 


4004D852 


4780CCB6 


05074004 


D7A84780 


C0B6D5C7 


4004D7B0 


4770C0AE 


OOOOAO 


96FCC241 


D224D48D 


D85547F0 


C0B69540 


40044770 


C0BC1A42 


47F0C062 


D20705F4 


OOOOCO 


40049200 


D796D276 


D4F4D4F3 


D21B0435 


D7C807CC 


4510C0DC 


80000D4C 


0A40D22B 


OOOOEO 


039F0048 


D205D461 


D0BEO7CF 


D5B8D5B8 


D203D704 


D7E44110 


C5F44100 


D2581300 


000100 


0A189520 


D25A4770 


C7204110 


C7540A1B 


12FF4770 


C632C201 


037C012E 


91C2D11E 


000120 


47E0C730 


91C0D12C 


05A04710 


C14C92FF 


D796D501 


D124D81C 


4780C146 


D21BD435 


000140 


043447F0 


C14CD218 


D435D7E8 


1A425040 


D5AC9200 


D5B40700 


4510C160 


8C00CD4C 


000160 


0A164530 


C3500700 


4510C18G 


coooooco 


80800000 


C000004C 


000009EE 


00000000 


000180 


58F10008 


58F0F03C 


C5EF4110 


C16C58E0 


100858F0 


E034C5EF 


58A0D5B8 


41AA0001 


0001A0 


50A0D5B8 


91FFD37E 


4710C6BC 


18884A80 


02764780 


C3F84120 


D27895FF 


20004780 


0001CO 


C1680207 


D4F42000 


434200CB 


8940001B 


8840001A 


12444780 


C21A91FF 


D7964780 


0001EO 


C2604162 


000CF384 


D51F60C0 


DC07D51F 


D47C9240 


D5279110 


6C0147EO 


C2C8D203 


000200 


D5000523 


96F0C23D 


91206C01 


47E0C21A 


D2C8D507 


087A96FC 


C23D9180 


200B4780 


000220 


C2280204 


D519D883 


F363D512 


20080005 


D512D47C 


9240D518 


4130C244 


47C0C32C 


00024C 


4700C32C 


940FC23D 


D276D4F4 


D4F305C7 


D26E200C 


47C0C168 


4124200C 


47F0C1BA 


000260 


91022014 


4710C276 


D20D0529 


D81E96F0 


C23D47F0 


C3009180 


20144780 


C288D203 


000280 


D5290804 


47F0C2A8 


91402014 


4780C29A 


0203D529 


C80847F0 


C2A89101 


20154780 


00O2A0 


C2A802jV3_». 


nq?9Daor. 

S SQ£14^ 


91042014 


4780C2SA- 
47>* > ^ 


^ n703D57F 




w r.?r.a<M.2Q, 


_^20J£AiS»*— ■ _^ 



o 
if 

ft 
(D 
h 



H 



-J 



s—~ 


OOOCC^ 




W4C404TT— 
















COOCEO 


40404640 


40404040 


40404040 ' 




^--<<F5F6>7— 






yo 




000000 


F5F3C9C9 


D4C1F0F5 


F4C9C9D4 


cSw S* 


C940F2F3 


F2F140E2 


D7C1C3C5 


"TTJTT?t?6E3 




000D20 


40C30604 


07E4E3C5 


C4C00C00 


oooooooc 


870G07C8 


COOCCOCC 


00000000 


0CC0C000 




000D40 


00000000 


OOOCOOOO 


OOOOOOOC 


coocoooo 


OOOOOOOC 


OOOOCOOC 


OCCOOOOO 


O8COOC0O 




000D60 


00000001 


0000400C 


C0000001 


00000408 


81000D3C 


E7E7E7E7 


E7E7E7E7 


02C02000 




000D80 


00000001 


000006A0 


00000100 


OOOCOOOO 


CG0C0001 


00000001 


00C00001 


OOCCOIOO 




OOODAO 


00000001 


00000000 


00000000 


00000000 


OOOOOOOC 


00000000 


OOGOOOOi 


C0C040C0 




OOODCO 


oeocoooi 


00000001 


84C000C0 


E2E8E2D7 


C9C9D5E3 


02000050 


00000001 


0CC000C1 




OOOOEO 


00000079 


oooooooc 


00000001 


00000001 


0OOC0O01 


00000079 


C0000001 


00000000 




OOOEOO 


00000001 


OO0O00OG 


00000000 


oooooooc 


OOOOOOOC 


COOCOCCG 


OOOOOCOO 


OOOOCOOO 




000E2C 


00000000 


00000000 


COCOOOCC 


OOOCOOOO 


OOOOOOOC 


OOOCOOOO 


OOOOOOOC 


00000000 




000E40 


00000000 


oooooooc 


OOOOOOOC 


00000000 


OOOOOOOC 


C9D4C1C7 


E3C6D3E2 


F0C4C1E3 




000E60 


C140E2C5 


E340C306 


D5E3C1C9 


D5E24040 


404040C4 


C909C5C3 


E3D6D9E8 


40C2D3D6 




000E80 


C3D2E26B 


40404040 


40C1D9C5 


40E4D5E4 


E2C5C4C2 


C3C6C3C2 


E2C9E9C5 


4CC9E240 




OOOEAO 


40404040 


40C4C1E3 


C140E2C5 


E340C8C1 


E2404C4C 


40C5E7E3 


C5D5E3E2 


6B40404C 




OCOECO 


404040E3 


D9C1C3D2 


E240E3D6 


E3C1D36B 


404C404C 


4040E3C9 


C1C3D2E2 


4CC1C9C5 




OOOEEO 


40C1E5C1 


C9D3C1C2 


D3C5D5D6 


40E2C5C3 


D6D5C4C1 


D9E840C1 


C3D3D6C3 


C1E3C906 




OOOFOO 


D540C6C1 


C3E3D6D9 


40C9E240 


40404040 


40404040 


40400000 


D1C6C2D3 


C9C24C40 




000F20 


E2E3C5D7 


D3C9C240 


07C7D47E 


5C4BC4C4 


D3C9E2E3 


C9C5F2E3 


C4C1E3C1 


40E2C5E3 




000F40 


4CD5D6E3 


40D7C4E2 


D3C9D5D2 


C1C7C54C 


C5C4C9E3 


D6C940C1 


E3E309C9 


C2E4E3C5 




000F60 


E 2404040 


D5D6D5C5 


E3C8C9E2 


40C9E240 


C140C3C1 


C9C440C9 


D4C1C7C5 


40D3C9C2 




000F80 


09C1D9E8 


D9C505E3 


D9C5E4E2 


D9C5C6D9 


E2C3E3D9 


D6E5D3E8 


E3C5E2E3 


00500506 




OOOFAO 


E340C5E7 


C5C3E4E3 


C1C2D3C5 


C4C305C5 


D6D3001A 


00240022 


0C2CC3E8 


03404040 




OOOFCO 


C2D3D6C3 


D2E2E3D9 


C1C3D2E2 


C4C4D5C1 


C4C5E2E8 


E2C3C9E2 


E340D6C6 


40C1D3D3 




OOOFEO 


40D4C5D4 


C2C5D9E2 


40404040 


40404040 


4040404C 


40404040 


404CD3D6 


C3C1C340 




C01000 


C6C9E7C1 


D2C9C1E2 


D5D64CD7 


E3C640D6 


D940D3D6 


C3C1D340 


C6C9E7CI 


D303C6C3 




001020 


C1E3C5C4 


40C4C5E5 


C9C3C540 


05D6E340 


C4C14110 


50045031 








IMA113I 


COMPLETED DUMP REQUIREMENTS 













Figure SPZAP-4. Sample Formatted Hexadecimal Dump 



i 



The Translated Dump 

The control statements DUMPT and ABSDUMPT also provide an operation 
code translation and an EBCDIC representation of the data contained in 
the dump. Figure SPZAP-5 shows the format of the translated dump. The 
first byte of each ha If word of data is translated into its mnemonic 
operation code equivalent, provided such a translation is possible. If 
there is no equivalent mnemonic representational value to be given, the 
space is left blank. This translated line of codes and blanks is 
printed directly under the corresponding hexadecimal line. An EBCDIC 
representation of each byte of data is printed on two lines to the right 
of the corresponding line of text with periods (.) substituted for 
those bytes that do not translate to valid printable characters. 
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DUMPT IMAPTFLS 



**CCHHR- 


000000 201 


RECORD LENGTH- 


OCOO 




MEMBER NAME IMAPTFLS CSEC-T NAME IMAPTFLS 


COOOOO 


47F0 
BC 


F012 


0CC9 


04C1 
NC 


D7E3 
XC 


C6D3 


E24B 


F1F9 
MVO 


FOOO 


90EC 
STM 


DOOC 


18CF 
LR 


5C00 
ST 


C784 


4140 
LA 


C780 


000020 


504D 


0008 


18D4 


0700 


4510 


CC30 


8F00 


0OA4 


CA13 


9110 


0654 


4780 


C3AC 


5810 


0010 


F342 




ST 




LR 


BCR 


8AL 




SLDA 




SVC 


TM 


OC 


ec 




L 




UNPK 


000040 


D3EB 


1039 


96F0 


D3EF 


D2Q1 


03EA 


D3EB 


924B 


D3EC 


5811 


0000 


5811 


0004 


5811 


OOOC 


4141 




MVZ 


LPR 


01 


MVZ 


MVC 


MVZ 


MVZ 


MVI 


MVZ 


L 




L 




L 




LA 


000060 


0018 


1B22 


4324 


0000 


1222 


478C 


C30C 


D507 


4004 


D798 


4780 


CCB6 


D507 


4004 


D7A0 


4780 






SR 


IC 




LTR 


BC 




CLC 


STH 


XC 


BC 




CLC 


STH 


XC 


BC 


000080 


C0B6 


0502 


4004 


D852 


4780 


CCB6 


D507 


4004 


07A8 


4780 


CCB6 


C507 


4004 


07BC 


4770 


CCAE 






CLC 


STH 




BC 




CLC 


STH 


XC 


BC 




CLC 


STH 


XC 


BC 




COOOAO 


96F0 


C241 


0224 


0480 


D855 


47FC 


C0B6 


9540 


4004 


4770 


COBC 


1A42 


47F0 


C062 


C207 


D5F4 




01 




MVC 


NC 




BC 




CLI 


STH 


BC 




AR 


BC 




MVC 


CLC 


OOOOCO 


4004 


9200 


0796 


D276 


04F4 


D4F3 


021B 


0435 


D7C8 


070C 


4510 


CCDC 


8000 


0D4C 


0A40 


D228 




STH 


MVI 


XC 


MVC 


NC 


NC 


MVC 


NC 


XC 


BCR 


BAL 




SSM 




SVC 


MVC 


OOOOEO 


D39F 


0048 


0205 


D461 


DCBE 


D7CF 


D5B8 


05B8 


0203 


D704 


D7E4 


4110 


C5F4 


4100 


C258 


1300 




MVZ 




MVC 


NC 




XC 


CLC 


CLC 


MVC 


XC 


XC 


LA 


CLC 


LA 


MVC 


LCR 


000100 


0A18 


9520 


025A 


4770 


C720 


411C 


C754 


0A1B 


12FF 


4770 


C632 


C201 


D37C 


D12E 


9102 


DUE 




SVC 


CLI 


MVC 


BC 




LA 




SVC 


LTR 


BC 




MVC 


MVZ 


MVN 


TM 


MVN 


000120 


47E0 


C730 


9 ICO 


DUO 


C5AC 


4710 


C14C 


92FF 


079 6 


D501 


D124 


C81C 


4780 


C146 


D21B 


D435 




BC 




TM 


MVN 


BALR 


BC 




MVI 


XC 


CLC 


MVN 




BC 




MVC 


NC 


000140 


0434 


47F0 


C14C 


D21B 


D435 


D7E8 


1A42 


5C40 


D5AC 


9200 


0564 


0700 


4510 


C160 


8C00 


0C4£. 




NC 


BC 




MVC 


NC 


XC^ 




ST 


CLC 


MVI 


CJ>— 


"*<# ,. 


BA>"" 








000160 


0A16 
SVC. 


4530 


5^*S 


0700 


4510 






sQOOO 


8080 
SSM 


oocp" 














000180 


















v looa* 

















*.0C. IMAPTFLS. 19* 

*0 E.G.. G.* 

*£(. ..M * 

*....0...C.....3.* 
*L.. ..CL.K.L.L...* 

*L * 

* C.N.* 

* .P N. .P...* 

*..N. .C N. .* 

*P N. .P * 

*.0B.K.M.Q..C... * 
* 0..K.N4* 

* ...P.K.M4M3K.M.* 

*PH ). K.* 

*L...K.M/..P.N.N.* 
*K.P.PU..N4..K...* 
*.. . .K-..G...G...* 
*... .F.K.L'J...J.* 

*..G...J A)..* 

*P.M.J .O...A.K.H.* 

^.M.PY.,6 *. 



p) 

r+ 
CD 



C0OE8O 
COOEAO 




4040 


40T4 > " 












E24C 


4040 


*^C3C6 > 
MVZ 
4CC5 


E7E3 > 










^ 


— ^^rffi nr.KST7F is * 


4040 


^34C 


C8C1 


•<04C 


* DATA SET HA* 




STH 


STH 


STH 














STH 


STH 








SO 


STH 


*S EXTENTSt * 


OOOECO 


4040 


40E3 


C9C1 


C3D2 


E24C 


E3D6 


E3C1 


D36B 


4040 


4040 


4040 


E3C9 


C1C3 


02E2 


4CC1 


C9C5 


* TRACKS TOTAL,* 




STH 


STH 












MVZ 


STH 


STH 


STH 






MVC 


STH 




* TRACKS ARE* 


OOOEEO 


40C1 


E5C1 


C9D3 


C1C2 


D3C5 


D5D6 


40E2 


C5C3 


D6D5 


C4C1 


D9E8 


4CC1 


C3C3 


06C3 


C1E3 


C906 


* AVAILABLENG SEC* 




STH 








MVZ 


CLC 


STH 




OC 






STH 


MVZ 


OC 






*ONOARY ALLOCATIO* 


OOOFOO 


0540 


C6C1 


C3E3 


0609 


40C9 


E24C- 


404G 


4040 


4C40 


4040 


4040 


0000 


D106 


C2D3 


C9C2 


404G 


*N FACTOR IS * 




CLC 






OC 


STH 




STH 


STH 


STH 


STH 


STH 




MVN 






STH 


* ..JOBLIB * 


00OF2O 


E2E3 


C5D7 


D3C9 
MVZ 


C240 


D7C7 
XC 


D47E 
NC 


5C4B 

M 


C4C4 


03C9 
MVZ 


E2E3 


D9C5 


E2E3 


C4C1 


E3C1 


4CE2 
STH 


C5E3 


*STEPLIB PGM=*.CO* 
*LISTRESTDATA SET* 


000F40 


4005 
STH 


D6E3 
OC 


40D7 
STH 


C4E2 


D3C9 
MVZ 


D5D2 
CLC 


C1C7 


C540 


C5C4 


C9E3 


C6C9 
OC 


40C1 
STH 


E3E3 


D9C9 


C2E4 


E3C5 


* NOT PDSLINKAGE * 
♦EDITOR ATTRIBUTE* 


000F60 


E240 


4040 
STH 


05D6 
CLC 


05C5 
CLC 


E3C8 


C9E2 


40C9 
STH 


E240 


C14C 


C3C1 


CSC4 


4CC9 
STH 


D4C1 
NC 


C7C5 


40D3 
STH 


C9C2 


*S NONETHIS IS * 
*A CARD IMAGE LIB* 


COOF80 


D9C1 


D9E8 


D9C5 


D5E3 
CLC 


D9C5 


E4E2 


D9C5 


C609 


E2C3 


E3C9 


C6E5 
OC 


C3E8 
MVZ 


E3C5 


E2E3 


C05C 


D5D6 
CLC 


*RARYRENTREUSREFR* 
*SCTROVLYTEST.£NO* 


COCFAO 


E340 


C5E7 


C5C3 


E4E3 


C1C2 


D3C5 
MVZ 


C4C3 


C5C5 
CLC 


06D3 
OC 


001A 


0024 


0022 


002C 


C3E8 


C34C 
MVZ 


4040 
STH 


*T EXECUTABLEDCNE* 


COOFCO 


C2D3 


D6C3 


02E2 


E3D9 


C1C3 


02E2 


C4C4 


05C1 


C4C5 


E2E8 


E2D3 


C9E2 


E340 


D6C6 


40C1 


0303 


♦BLOCKSTRACKSCDNA* 






OC 


MVC 






MVC 




CLC 


NC 










OC 


STH 


MVZ 


*MESYSLIST OF ALL* 


OOOFEO 


4004 


C5D4 


C2C5 


09E2 


4040 


4C4C 


4040 


4040 


4040 


4040 


4C40 


4C40 


4040 


D3D6 


C3C1 


D34C 


* MEMBERS * 




STH 








STH 


STH 


STH 


STH 


STH 


STH 


STH 


STH 


STH 


MVZ 




MVZ 


* LOCAL * 


001000 


C6C9 


E7CI 


D3C9 


C1E2 


D5D6 


4CD7 


E3C6 


4006 


D940 


D3C6 


C3C1 


D340 


C6C9 


E7C1 


0303 


D6C3 


♦FIXALIASNO PTF C* 








MVZ 




CLC 


STH 




STH 




MVZ 




MVZ 






MVZ 


OC 


*R LOCAL FIXALLOC* 


001020 


C1E3 


C5C4 


40C4 
STH 


C5E5 


C9C3 


C540 


D5D6 
CLC 


E340 


C4C1 


4110 
LA 


5CC4 
ST 


5031 
ST 










*ATED DEVICE NOT * 
*DA. .£.&. 


IMA113I 


COMPLETED DUMP REQUIREMENTS 



























Figure SPZAP-5. Sample Translated Dump 



to 




IMASPZAP Examples 



Example 1: Inspecting and Modifying a Load Module Containing a Single 
CSECT 

This example shows how to inspect an modify a load module containing a 
single CSECT. 

MSGLEVEL=(l f 1) 

PGM=IMASPZAP 

SYSOUT=A 

DSNAME=SYSl. LINKLIB , DISP=OLD 

* 

C9C8,D2D9,D1C2,C7D5 
E5C6,D3D6,E6F0, 4040 



/* 



//ZAPCSECT 




JOB 


//STEP 




EXEC 


//SYSPRINT 




DD 


//SYSLIB 




DD 


//SYS IN 




DD 


NAME 


IEEVLNKT 


VERIFY 


0018 




REP 


0018 




SETSSI 


01211234 


IDRDATA 


71144 


DOMP 


IEEVLNKT 



In this example: 

JOB Statement 

initiates the job 
EXEC Statement 

invokes IMASPZAP. 
SYSPRINT DD Statement 

defines the message data set. 

SYSLIB DD Statement 

defines the system library SYS1. LINKLIB containing the module 
IEEVLNKT that SPZAP is to process. 

SYSIN DD Statement 



defines the input stream. 

NAME Control Statement 

instructs IMASPZAP that the operations defined by the control 
statements that follow are to be performed on the module IEEVLNKT. 

VERIFY Control Statement 

requests that IMAPSPZAP check the hexadecimal data at the location 
that is offset X'OOIS* from the start of the module IEEVLNKT to make 
sure that it is the same as the hexadecimal data specified in this 
statement. If the data is the same, IMASPZAP continues processing 
the subsequent statements sequentially. If the data is not 
identical, IMASPZAP dumps a hexadecimal image of the module IEEVLNKT 
to the SYSPRINT data set. As a result of this "VERIFY REJECT", 
IMASPZAP will not perform the REP and SETSSI operations requested 
for the module. It will, however, perform the DUMP operation 
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requested before discontinuing the processing. 

REP Control Statement 

causes IMASPZAP to replace the data at hexadecimal offset 0018 from 
the start of module IEEVLNKT with the data given in this control 
statement, provided the VERIFY statement was successful. 

SETSSI Control Statement 

instructs IMASPZAP that it is to replace the system status 
information in the directory entry for module IEEVLNKT with the SSI 
data given in the statement, provided the VERIFY statement was 
successful. The new SSI is to contain: 

1. A change level of 01, 

2. A flag byte of 21, 

3. A serial number of 1234. 
IDRDAIA Control Statement 

causes IMASPZAP to update the IDR in module IEEVLNKT with the data 
71144, if the REP operation is successful. 

DUMP Control Statement 

requests that a hexadecimal image of module IEEVLNKT be dumped to 
the SYSPRINT data set. Since the DUMP statement follows the REP 
statement, the image will reflect the changes made by IMASPZAP 
(provided the control statements were successfully verified). 

Example 2: Inspecting and Modifying a CSECT in a Multiple-CSECT Load Module 

This example show how to apply an IBM-supplied PTF in the form of an 
IMASPZAP fix, rather than a module replacement PTF. 



//PTF40228 

//STEP 

//SYSPRINT 

//SYSLIB 

//SYSIN 
NAME 
IDRDATA 
VERIFY 
VERIFY 
REP 
REP 

SETSSI 
DUMPT 

/* 



JOB 

EXEC 

DD 

DD 

DD * 
IEANUC01 IEWFETCH 
LOCFIX01 
01F0 47F0C018 
0210 5830C8F4 
01F0 4780C072 
0210 4130C8F4 
02114228 
IEANUC01 IEWFETCH 



MSGLEVEL=(1,1) 

PGM= IMASPZAP 

SYSOUT=A 

DSNAME=SYS1. NUCLEUS, DISP=OLD 



JOB Statement 

initiates the job. 
EXEC Statement 

invokes IMASPZAP. 
SYSPRINT DD Statement 
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defines the message data set. 

SYSLIB DD Statement 

defines the library (SYS1. NUCLEUS) that contains input module 
IEANUC01. 

SYSIN DD Statmenet 

defines the input stream that contains the SPZAP control statements. 

NAME Control Statement 

instructs IMASZAP that the operations defined by the control 
statements that immediately follow this statement are to be 
performed on the CSECT IEWFETCH contained in the load module 
IEANUC01. 

IDRDATA Control Statement 

causes IMASPZAP to update the IDR in module IEANUC01 for CSECT 
IEWFETCH with the data LOCIX01, if either of the REP operations is 
successful. 

VERIFY Control Statements 

request that IMASPZAP compare the contents of the locations X'OIFO* 
and X , 0210' in the control section IEWFETCH with the data given in 
the VERIFY control statements. If the comparisons are equal, 
IMASPZAP will continue processing subsequent control statements in 
the order in which they are encountered. However, if the data at 
the locations does not compare identically to the data given in the 
VERIFY control statements, IMASPZAP will dump a hexadecimal image of 
CSECT IEWFETCH to the SY SPRINT data set; the subsequent REP and 
SETSSI statements will be ignored. The DUMPT function specified will 
be performed before IMASPZAP terminates processing. 

REP Control statements 

cause IMASPZAP to replace the data at hexadecimal offsets X'OIFO • 
and X"0210* from the start of CSECT IEWFETCH with the hexadecimal 
data specified on the corresponding REP statements. 

SETSSI Control Statement 

requests that IMASPZAP replace the system status information in the 
directory for module IEANUC01 with the SSI data given in the SETSSI 
statement after the replacement operations have been effected. The 
new SSI will contain: 

1. A change level of 02, 

2. A flag byte of 11, 

3. A serial number of 4228. 

DUMPT Control Statement 

causes IMASPZAP to perform the DUMPT function for CSECT IEWFETCH of 
load module IEANUC01. 
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Example 3: Inspecting and Modifying Two CSECTs in the Same Load Module 

This example shows how to inspect and modify two control sections in the 
same module. 



//CHANGIT 

//STEP 

//SYSPRINT 

//SYSLIB 

//SYSIN 
NAME 
VERIFY 
REP 

IDRDATA 
SETSSI 
DUMPT 
NAME 
VERIFY 
REP 

IDRDATA 
SETSSI 
DUMPT 

/* 



JOB MSGLEVEL= ( 1 , 1 ) 

EXEC PGM=IMASPZAP 

DD SYSOUT=A 

DD DSNAME=SYSl.LINKLIB,DISP=OLD 

DD * 
IEFX5000 IEFQMSSS 
0284 4780, C096 
0284 4770 f C096 
PTF0148 3 
01212448 

IEFX5000 IEFQMSSS 
IEFX5000 IEFQMRAW 
0154 4780, C042 
0514 4770, C042 
PTF01483 
01212448 
IEFX5000 IEFQMRAW 



JOB Statement 

initiates the job. 
EXEC Statement 

invokes IMASPZAP. 
SYSPRINT DD Statement 

defines the message data set. 

SYSLIB DD Statement 

defines the data set to be accessed by IMASPZAP while performing the 
operations specified by the control statements. In this case, it 
defines the system library SYS1. LINKLIB containing the load module 
IEFX5 000 that is to be changed by IMASPZAP. 

NAME Control Statement #1 

instructs IMASPZAP that the operations requested via the control 
statements immediately following it are to be performed on CSECT 
IEFQMSSS in load module IEFX5000 that resides in the data set 
defined by the SYSLIB DD statement. 

VERIFY Control Statement #1 

requests that IMASPZAP check the hexadecimal data at offset X'0284 1 
from the beginning of CSECT IEFQMSSS to make sure it is the same as 
the data specified in this control statement. If the two data fields 
match, IMASPZAP continues processing the control statements that 
follow sequentially. If the data is not identical, IMASPZAP dumps a 
formatted hexadecimal image of CSECT IEFQMSSS to the SYSPRINT data 
set. If a "VERIFY REJECT" occurred, IMASPZAP would not perform the 
REP or SETSSI functions for CSECT IEFQMSSS, but it would implement 
the DUMPT function specified for this CSECT and continue to process 
the control statements that follow in the same job step. 
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REP Control Statement #1 

causes IMASPZAP to replace the data at hexadecimal displacement 0284 
from the beginning of CSECT IEFQMSSS with the hexadecimal data given 
in this control statement. 

IDRDATA Control Statement #1 

causes IMASPZAP to update the IDR in module IEFX5000 for CSECT 
IEFQMSSS with the data PTF0148 3, if the first REP operation is 
successful. 

SETSSI Control Statement #1 

instructs IMASPZAP that it is to replace the system status 
information in the directory entry for module IEFX5000 with the SSI 
data given. The new SSI will contain: 

1. A change level of 01, 

2. A flag byte of 21, 

3. A serial number of 2448. 

DUMPT Control Statement #1 

causes IMASPZAP to perform the DUMPT operation on CSECT IEFQMSSS, 
and nullifies any previous "VERIFY REJECTS" that may have been 
encountered. 

NAME Control Statement #2 

indicates that the operations defined by the control statements that 
immediately follow this statement are to be performed on CSECT 
IEFQMRAW in the load module IEFX5000. 

VERIFY Control Statement #2 

requests that IMASPZAP perform the VERIFY function at offset X'0154* 
from the start of CSECT IEFQMRAW. If the VERIFY operation is 
successful, IMASPZAP will continue processing the subsequent control 
statements sequentially. If the VERIFY is rejected, however, 
IMASPZAP will not perform the following REP or SETSSI operations, 
but it will dump a hexadecimal image of CSECT IEFQMRAW to the 
SYSPRINT data set and perform the DUMPT operation as requested. 

REP Control Statement #2 

causes IMASPZAP to replace the data at hexadecimal offset X'0154* 
from the start of CSECT IEFQMRAW with the hexadecimal data that is 
specified in this control statement. 

IDRDATA Control Statement #2 

causes IMASPZAP to update the IDR in module IEFX5000 for CSECT 
IEFQMRAW with the data PTF01483, if the second REP operation is 
successful. 

SETSSI Control Statement #2 

causes IMASPZAP to perform the same function as the previous SETSSI, 
but it is performed only if the second VERIFY is not rejected. 
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//ZAPIT 


JOB 


//STEP 


EXEC 


//SYSPRINT 


DD 


//SYSLIB 


DD 



DUMPT Control Statement #2 

causes IMASPZAP to perform the DUMPT function on control section 

IEFQMRAW. 

Example 4: Inspecting and Modifying a Data Record 

In this example, the data set to be modified is a volume table of 
contents . 

MSGLEVEL=(1,1) 
PGM= IMASPZAP 
SYSOUT=A 

DSNAME= FORMAT 4. DSCB, DISP=OLD , 
// UNIT=2311,VOLUME=SER=llllll,DCB=(KEYLEN=44) 
//SYS IN DD * 

CCHHR 005000001 

VERIFY 2C 0504 

REP 2C 0A0 8 

REP 2E 0001,03000102 

ABS DUMPT ALL 
/* 

JOB Statement 

initiates the job. 
EXEC Statement 

invokes IMASPZAP. 
SYSPRINT DD Statement 

defines the message data set. 
SYSLIB DD Statement 

defines the data set to be accessed by IMASPZAP in performing the 
operations specified by the control statements. In this example, it 
defines the VTOC (a Format 4 DSCB) on a 2311 volume with a serial 
number of 111111. DCB= (KEYLEN=44) is specified so that the dump 
produced by the ABSDUMPT control statement will show the dsname 
which is a 44 byte key. Note that this is not necessary for the 
VERIFY and REP control statements. 

CCHHR Control Statement 

indicates that IMASPZAP is to access the direct access record 
address "0005000001" in the data set defined by the SYSLIB DD 
statement while performing the operations specified by the following 
control statements. 

VERIFY Control Statement 

requests that IMASPZAP check the data at hexadecimal displacement 
X f 2C* from the start of the data record defined in the CCHHR 
statement to make sure it is the same as the hexadecimal data 
specified in this control statement. If the data is the same, 
IMASPZAP continues processing the following control statements 
sequentially. If the data is not identical, IMASPZAP dumps a 
formatted hexadecimal image of the data record defined by the CCHHR 
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statement to the SYSPRINT data set. If a "VERIFY REJECT" occurred, 
IMASPZAP would not perform the REP functions requested, but it would 
give the dump specified by the ABSDUMPT statement. 

REP Control Statements 

cause the eight bytes of data starting at displacement 2C from the 
beginning of the record to be replaced with the hexadecimal data in 
the REP control statements. The 2C displacement value allows for a 
44-byte key at the beginning of the record. 

ABSDUMPT Control Statement 

causes IMASPZAP to dump the entire data set to the SYSPRINT data 
set. Since DCB=(KEYLEN=44) is specified on the SYSLIB DD statement, 
the 44 byte dsname will also be dumped. 

Note ; If the VTOC is to be modified, message IMA117D will be issued 
to the operator, requesting permission for the modification. 

Example 5: Entering SPZAP Control Statements Through the Console 

This example shows how to enter IMASPZAP control statement through the 
console. 



//CONSOLIN 


JOB 


MSGLEVEL=(1,1) 


//STEP 


EXEC 


PGM=IMASPZAP 


//SYSPRINT 


DD 


SYSOUT=A 


//SYSLIB 


DD 


DSNAME=SYS1. LINKLIB, DISP=OLD 


//SYSIN 


DD 


* 


CONSOLE 






/* 







JOB Statement 

initiates the job. 
EXEC Statement 

invokes IMASPZAP. 
SYSPRINT DD Statement 

defines the message data set. 
SYSLIB DD Statement 

defines the data set that contains the module to be updated. 
SYSIN DD Statement 

defines the input stream. 

CONSOLE Control Statement 

indicates that IMASPZAP control statements are to be entered through 
the console. 
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Example 6: Using the BASE Control Statement 

This example shows how to inspect and modify a CSECT whose starting 
address does not coincide with assembly listing location zero. 



//MODIFY 


JOB 




MSGLEVEL=(1,1) 


//STEP 


EXEC 




PGM=IMASPZAP 


//SYSPRINT 


DD 




SYSOUT=A 


//SYS LIB 


DD 




DSNAME=SYS1. LINKLIB, DISP=OLD 


//SYS IN 


DD 




* 


NAME 




IEFMCVOL IEFCVOL2 


BASE 




0398 




IDRDATA 




MO DO a 


VERIFY 




039A 


5820C010 


REP 




039A 


47000000 


DUMP 




IEFMCVOL IEFCVOL2 



/* 

JOB Statement 

initiates the job. 
EXEC Statement 

invokes IMASPZAP. 
SYSPRINT DD Statement 

defines the message data set. 
SYS LIB DD Statement 

defines the data set to be accessed by IMASPZAP when performing the 
operations requested via the control statements. In this case, it 
defines the system library, SYSl. LINKLIB, that contains the module 
IEFMCVOL in which the CSECT to be changed, IEFCVOL2, resides.) 

SYS IN DD Statement 

defines the input stream that contains the IMASPZAP control 
statements. 

NAME Control Statement 

instructs IMASPZAP that the operations defined by the control 
statements that immediately follow it are to be performed on CSECT 
IEFCVOL2 in the load module IEFMCVOL. 

BASE Control Statement 

provides IMASPZAP with a base value that is to be used to readjust 
the offsets on the VERIFY and REP statements that follow it. 

IDRDATA Control Statement 

causes IMASPZAP to update the IDR in module IEFMCVOL for CSECT 
IEFCVOL2 with the data MOD04, the the REP operation is successful. 
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VERIFY Control Statment 

requests that IMASPZAP inspect the data at offset X , 039A I . The base 
value X*0398* given in the previous BASE statement is subtracted 
from this offset to determine the proper displacement of the data 
within CSECT IEFCVOL2. Therefore, IMASPZAP checks the data at the 
location that is actually displaced X*0002* bytes from the beginning 
of CSECT IEFCV0L2 to ensure that it is the same as the hexadecimal 
data specified in this control statement. 

If the data is the same, IMASPZAP continues processing the 
following statements in the order in which they are encountered. If 
the data is not identical, IMASPZAP dumps a hexadecimal image of 
CSECT IEFCV0L2 to the SYSPRINT data set. 

If a "VERIFY REJECT" occurs, IMASPZAP will not perform the REP, 
SETSSI, and IDRDATA functions, but it will perform the DUMP function 
requested for CSECT IEFCV0L2. 

REP Control Statement 

causes IMASPZAP to replace the data at displacement X , 0002* (offset 
03 9A minus base value 0398) into CSECT IEFCVOL2 with the hexadecimal 
data specified in this control statement. 

DUMP Control Statement 

requests that IMASPZAP dump a hexadecimal image of CSECT IEFCVOL2 to 
the SYSPRINT data set. Since the DUMP statement follows the REP 
statement, the image will reflect the changes made by IMASPZAP 
(assuming no verification has been rejected). 
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Appendix: Writing EDIT User Programs 

Tells how to write and use EDIT user programs. 



APNDX 
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Introduction 



You may want to code special programs to supplement GTF and 

IMDPRDMP/EDIT operation. EDIT allows for two types of user programs: 

exit routines and format appendages. Neither type may occupy more than 
10K bytes of main storage. 

• An exit routine allows you to inspect each input trace record before 
EDIT begins processing it; on the basis of the inspection you must 
decide whether EDIT should process the record normally or take 
special action. 

• A format appendage allows you to format all user trace records of a 
specified type. A format appendage must be named IMDUSRxx, where xx 
is the hexadecimal form of the format identifier (FID) specified in 
the GTRACE macro when the record was created. 

This appendix is designed to help you write efficient, helpful user 
programs . 
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User Program Interfaces 



A. user program interfaces with the EDIT function of IMDPRDMP in the 
following ways: 

Gaining Control 

Until EDIT calls them, user programs reside in SYSl. LINKLIB or in a data 
set defined by the JOBLIB or STEPLIB DD statement. Once a user program 
is loaded into main storage, it remains there until EDIT processing is 
complete, or until it is deleted due to a need for space. 

An exit routine is named in the EXIT= parameter of the EDIT control 
statement. It gets control every time EDIT reads an input trace record, 
and always completes its examination of the record before EDIT processes 
it. 

A format appendage is invoked only when EDIT encounters a record 
that contains an FID field corresponding to the name of the format 
appendage. It remains in main storage until deleted, but only gets 
control when EDIT encounters a record with the corresponding FID. 

Using the Parameter List 

When EDIT passes control to a user program, register 1 contains the 
address of a parameter list. The contents of that parameter list, and 
its related fields are shown in figure APNDX-1. The exit routine or 
format appendage uses the parameter list to find the record it is to 
process, determine how to process it, and decide where to put the 
processed record. 
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Input record 

As shown in Figure APNDX-1, the first four bytes of the parameter list 
give the address of the input record. Four-byte fields at offset 12 and 
16, respectively, point to the event identifier (EID) field and the data 
area in the input record. 

For a complete description of the input record format, see Figure 
GTF-8 in Chapter 3: GTF (Generalized Trace Facility). 



Register 1 




Output area 



(256 bytes maximum for user exit) 

(246 bytes maximum for format appendage) 



GTF option word 



(4 bytes) 

see Figure APNDX-2 for detai Is 



Data 



Figure APNDX-1. EDIT Parameter List and Related Fields 



APNDX 
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GTF Option Word 

A four-byte field at offset 8 in the parameter list gives the address of 
the GTF option word, a four-byte table that summarizes the GTF options 
in effect when the input trace records were produced. Figure APNDX-2 
lists the contents of the GTF option word. 



BYTES 



Byte 1 



Byte 2 



Byte 3 



Byte U 



BITS 



1. 

.1 



OPTIONS IN EFFECT DURING TRACE 



1.. 
1. 
.1 



1.. 
.XXX 



1.. 
1. 
.1 



1. 
.1 



1. 
.1 
..1 



XXX. 

..1 



1.. 

0.. 
.1. 
..1 
...1 



SYSM- 
SYSP- 
SYS-- 
USR - 
TRC • 
DSP - 
SSM - 
PCI - 

SVC - 
SVCP 
SIO - 
SIOP 
PI — 
PIP ■ 
10 — 
IOP • 



- minimal tracing for system events 

- maximum tracing, prompting requested, 
maximum tracing for system events 

-all GTRACE-generated interrupts traced 
-all GTF interrupts traced 

- all task-switches traced 

-all SSM interrupts traced (MP only) 

- program-controlled interrupts traced 

- all SVC interrupts traced 

~ SVC interrupts selected by prompting 

- all SIO events traced 

- SIO events selected by prompting 
all program interrupts traced 

- program interrupts selected by prompting 
all I/O interrupts traced 

- I/O interrupts selected by prompting 



EXT — external interrupts traced 

reserved bits 

IO=SIO — identical devices selected for 10 S SIO 

tracing system - MFT 

tracing system - MFT with ATTACH 

tracing system - MVT 

tracing system - Model 65 Multiprocessing 

real Monitor Call instruction 

simulated monitor call instruction 

no timer option selected at SYSGEN 

Tracing system has time-of-day clock 

user timestamp requested 



Figure APNDX-2 



Contents of GTF Option Word, showing GTF Options 
in Effect During Trace 



For more information about any of the GTF options, refer to Chapter 3, 
GTF (Generalized Trace Facility). 

Returning to EDIT 

A user program must return to EDIT with one of the return codes listed 
below. If EDIT recieves an invalid return code from a user program, it 
takes action as specified by the ER= subparameter of the PARM= parameter 
of the EXEC statement that invokes IMDPRDMP. This parameter, its values 
and their meanings are described in Chapter 8: PRDMP in the section "Job 
Control Language Statements". 



316 Service Aids (Release 21) 



Exit Routine Return Codes 

An exit routine must return to EDIT with one of the following return 
codes : 

Code Meaning 

EDIT should print the contents of the output area, clear the 

area, and return immediately to the exit routine. This allows 
the exit routine to print more than one line of output. (Note 
that the output buffer may be in a different location when the 
format appendage receives control again. ) 

4 EDIT should print the contents of the output area and obtain 
the next logical record. 

8 EDIT should format and print the trace record according to the 
selectivity specified in the EDIT control statement. 

12 EDIT should obtain the next logical input trace record without 
printing the contents of the output buffer. 

16 EDIT should print the contents of the output buffer and no 
longer invoke the exit routine, which is no longer needed. 

20 EDIT should format and print the trace record according to the 
selectivity specified in the EDIT control statement, and should 
no longer invoke the exit routine, which is no longer needed. 

24 EDIT should terminate processing and return control to IMDPRDMP 
so that the next IMDPRDMP control statement may be processed. 

28 EDIT should format and print this record as though no 

selectivity had been specified in the EDIT control statement. 

Format Appendage Return Codes 

A format appendage must return to EDIT with one of the following return 
codes: 

Code Meaning 

EDIT should print the contents of the output buffer and return 
immediately to the format appendage. (Note that the output 
buffer may be in a different location when the format appendage 
receives control again. ) 

4 EDIT should print the contents of the output buffer and obtain 
the next logical input trace record. 

8 EDIT should obtain the next logical input trace record without 
printing the contents of the output buffer. 

Handling Errors 

EDIT is prepared to handle two types of errors: invalid return codes 
and program checks. Other types of errors and their consequences are 
discussed later in this appendix, in the section "Avoiding 
Unrecoverable Errors". 
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Errors in Finding or Loading a User Program 

If EDIT cannot find or load a user program, it takes action as shown in 
Figure APNDX-3. 



■>»^^ Error 
Input Type \^^ 


Exit Routine 
Not Found Not Loaded 


Format Appendage 
Not Found Not Loaded 


Dump 

Trace Data Set 


A A 
A A 


3 B 
B A 



Action A: EDIT terminates processing and returns control to 
IMDPRDMP, which obtains the next IMDPRDMP control 
statement. 

Action B: EDIT dumps the associated record in hexadecimal and 
obtains the next input trace record. Any subsequent 
records that have the same FID will be dumped in 
hexadecimal. 

Figure APNDX-3. IMDPRDMP/EDIT Actions in Response to Errors in 
Finding or Loading User Programs. 

Invalid Return Codes and Program Checks 

EDIT's action in response to invalid return codes and program checks 
depends on the value for ER= that you specify in the PARM= parameter of 
the EXEC statement that invokes IMDPRDMP. For an explanation of the 
valid values for ER=, refer to the section "Job Control Language 
Statements" in Chapter 10: IMDPRDMP. 
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Avoiding Unrecoverable Errors 



As shown in the previous sections, EDIT can recover from two kinds of 
errors in a user program: invalid return codes and program checks. EDIT 
cannot protect you, however, against errors that you may generate, for 
example by performing I/O operations or issuing GETMAIN macro 
instructions. In fact, you should avoid issuing any SVCs in your user 
program. Ordinarily this is not difficult, since EDIT provides you with 
the ability to examine records, manipulate data, and request formatted 
output to be printed. If you must issue an SVC, EDIT will permit you to 
do so; you should be prepared, however, for possibly unpredictable 
results if an error occurs during an operation that you have requested 
by issuing an SVC. 

Another error condition that EDIT cannot handle, but which you can 
avoid, arises when you assign IMDPRDMP too small a region. You must 
specify a region large enough to accomodate all of IMDPRDMP* s work areas 
and buffers plus all format appendages that can be called plus any exit 
routine. If you do not do so, IMDPRDMP may delete one or more user 
programs already in main storage to make room for a new one. 

Deletion is critical if the deleted program issues an OPEN because 
the reinitialization that is necessary when the program is reloaded can 
cause two DCBs to be open at the same time. Deletion is also critical if 
the deleted program is an exit routine that sets a switch before 
relinquishing control and tests the same switch when it gets control 
again. Resulting errors may not cause abnormal termination, but they 
can prevent successful operation of the exit routine. 

If none of your user programs will be damaged by deletion, you need 
not allow extra space for them in IMDPRDMP' s region. IMDPRDMP* s minimum 
region size includes 10K for use by system format appendages and user 
programs . 

If your user program must issue a GETMAIN macro, be sure to specify 
a region large enough to include the amount of main storage requested in 
the user program. Also be sure to reserve that amount of storage for 
your own use by means of the FREEnnn subparameter of the PARM= parameter 
in the EXEC statement. If you do not reserve it, IMDPRDMP will make 
available to your program only a limited amount of storage and your 
GETMAIN may fail. For more information about the FREEnnn parameter, 
refer to the section "Job Control Language Statements" in Chapter 10: 
IMDPRDMP. 

On completion of your user program, be sure to issue a FREEMAIN 
macro for all storage that you reserved for your own use. If you do not 
do so, and your program is deleted, the storage you reserved will remain 
allocated to you and thus unavailable to subsequent users. 
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A few examples may further clarify the areas in which EDIT does not 
provide error recovery: 

• A user program, known as module A, issues the LINK SVC for module B. 
A program check occurs in module B. EDIT will attempt error 
recovery, since the error is a program check, but it knows nothing 
about module B. Therefore when it produces diagnostic information 
it will give the entry point of module A as the entry point of the 
failing module, and attribute the registers at the time of the 
program check to module A. 

• A user program issues the OPEN SVC (SVC X'lS*) unsuccessfully and is 
posted with a system completion code of 213. EDIT cannot recover, 
so EDIT, the user program and IMDPRDMP will all be terminated. 

• A user program opens a DCB. Before it can close the DCB, the 
program is deleted to make room for another user program. When the 
deleted program is reloaded, it creates a new DCB and opens it. 
Thus there are two open DCBs with the same name in storage at the 
same time. The operating system will not tolerate this situation, 
so the user program is abnormally terminated. 

• A user" program issues the SPIE SVC, thereby nullifying EDIT's SPIE 
routine. As a result any program checks in the user program that 
EDIT would normally handle will go through the user's own SPIE 
routine, perhaps with unpredictable results. 
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Sample User Exit Routine 



Figure APNDX-4 shows a sample exit routine. This routine, named 
ABENDXIT, was written to aid diagnosis of an abnormal termination 
condition in a particular job. It scans each input trace record, 
suppressing printing until it finds a record with the specified jobname. 
tfhen it finds such a record, ABENDXIT signals IMDPRDMP to print that 
record. All subsequent records will be printed until ABENDXIT encounters 
an SVC 13 record for the specified jobname; then ABENDXIT instructs 
IMDPRDMP to print that record and terminate. 

Note that this program decides how to treat each new record on the 
basis of the way it treated previous records. To do this it must 
maintain certain switches intact between records, and as a result this 
program is not serially reusable. To guarantee the integrity of the 
switches in the program, therefore, it is necessary to specify a region 
large enough to hold both IMDPRDMP and the user exit routine 
contiguously. This is the only way to make sure that the exit routine 
will not be deleted if EDIT needs more room to execute. 



* ABENDXIT IS AN EDIT USER EXIT ROUTINE DESIGNED TO CONTROL PRINTING 

* OF ALL GTF RECORDS ASSOCIATED WITH A PROGRAM THAT HAS 

* PROGRAM CHECKED AND ABENDED 

ABENDXIT CSECT 

* EQUATE STATEMENTS 



FRSTREG 


EQU 





PARMREG 


EQU 


1 


EI DREG 


EQU 


2 


DATAREG 


EQU 


3 


WORKREG 


EQU 


4 


CHAINREG 


EQU 


9 


BASE 


EQU 


12 


SAVEPTR 


EQU 


13 


RETPTR 


EQU 


14 


CODEREG 


EQU 


15 



STM RETPTR, BASE, 12 (SAVEPTR) 

BALR BASE,0 

USING *,BASE 

ST SAVEPTR, SAVE+ 4 

LA CHAINREG, SAVE 

ST CHAINREG, 8 (SAVEPTR) 

LR SAVEPTR, CHAINREG 



STORE REGISTERS 

ESTABLISH ADDRESSABILITY 

USING REGISTER 12 

BACKWARD CHAINING 

MY SAVE AREA POINTER 

FORWARD CHAINING 

REG 13 ADDRESSES SAVE AREA 



Figure APNDX-4. Sample Exit Routine. (Part 1 of 3) 



APNDX 
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IMDMEDIT SYMBOLIC EID MACRO 

+ */* THE IMDMEDIT MACRO MAPS THE EID VALUES ASSOCIATED WITH IBM */ 

+ */* SYSTEM AND SUBSYSTEM EVENTS. THE STORAGE FOR ANY OR ALL OF */ 

+ */* THE MAPPED VALUES MUST BE CONTAINED IN THE MODULE REFERENCING */ 

+*/* THE DESIRED EIDS. IMDMEDIT IS DESIGNED TO BE USED BY IBM- */ 

+*/* SUPPLIED FORMAT APPENDAGES, AND USER- SUPPLIED USER EXIT */ 

+*/* MODULES. */ 



+IMDMPCI EQU 
+IMDMSVC EQU 
+IMDMDSP EQU 
+IMDMI01 EQU 
+IMDMI02 EQU 
+IMDMSIO EQU 
+IMDMSSM EQU 
+IMDMPI EQU 
+IMDMEXT EQU 
+IMDMDMA1 EQU 
TM 
BC 

TM 

BC 

LA 

C 

BC 

WTOR 



X'2FDF* 

X«3FFF' 

X'4FE7 f 

X'SFEE* 

X'5FEF' 

X'5FF0 f 

X'DFFC 

X ' DFFD* 

X ' DFFE' 

X'EFFF* 

TERMSW, X'Ol* 

1, FINISH 



PCI I/O INTERRUPT 

SVC INTERRUPT 

TASK SWITCH 

I/O INTERRUPT 

I/O INTERRUPT 

SIO OPERATION 

SSM INTERRUPT 

PROGRAM INTERRUPT 

EXTERNAL INTERRUPT 

OPEN/CLOSE/ EOV 

Q/HAS TERMINATION BEEN REQSTD 
YES, TELL EDIT TO TERMINATE 



E1DREG, 12(PARMREG) GET POINTER TO EID 
DATAREG,16(PARMREG) GET POINTER TO DATA ( JOB NAME) 
PRINTSW^'Ol' Q/HAS JOBN ALREADY BEEN FOUND 
1,PRINTALL YES, SO PRINT THIS RECORD 

WORKREG,0 GET ZERO CONSTANT 

WORKREG,ECBl Q/HAS THIS ECB BEEN POSTED 
7,MYJOBLAB YES, CHECK IF JOBN FOUND 

•SPECIFY 8-CHARACTER JOBNAME OF ABENDING PROGRAM', 
MYJOBN,8,ECBl 
WAIT ECB=ECB1 

LA WORKREG,MYJOBN ADDRESS OF JOBNAME SELECTED 
OC 0(8,WORKREG) , BLANKS CONVERT LOWER-CASE CHARS TO 

UPPER CASE 
0(8,DATAREG) ,MYJOBN Q/IS THIS MY JOBNAME 
7,NOPRINT NO — JUST RETURN 

ONCE JOBNAME FOUND | SET SWITCH AND PRINT ALL RECORDS UNTIL 
ENCOUNTER AN SVC 13 (ABEND) CONTAINING THIS JOBNAME 



MYJOBLAB CLC 
BC 

* 

* 

01 

PRINTALL CLC 
BC 
CLI 
BC 
CLC 
BC 

EXIT 01 

* 

PRINTREC LA 
L 
L 

LM 
BCR 



PRINTS W,X* 01' 
0(2, EIDREG) , SVCEID 
7, PRINTREC 
15(DATAREG) ,X'0D f 
7 , PRINTREC 



TURN ON JOBNAME FOUND SWITCH 
Q/ IS THIS AN SVC RECORD 
NO, SO PRINT AND CONTINUE 
Q/IS THIS AN SVC 13 (ABEND) 
NO, SO PRINT AND CONTINUE 



0(8,DATAREG) ,MYJOBN Q/IS THIS MY JOBNAME 



7 , PRINTREC 
TERMS W,X* 01* 

CODEREG, 8 

SAVEPTR, 4 (SAVEPTR) 
RETPTR, 12 (SAVEPTR) 



NO, SO PRINT AND CONTINUE 
INDICATE THAT THIS IS LAST 
RECORD TO BE PRINTED 
FORMAT AND PRINT THIS RECORD 
RESTORE SAVE AREA POINTER 
RESTORE REGISTER 14 

FRSTREG, BASE, 20 (SAVEPTR) RESTORE OTHER REGS EXCEPT 15 

15, RETPTR RETURN TO EDIT 



Figure APNDX-U. Sample Exit Routine (Part 2 of 3) 
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FINISH 


LA 


CODEREG, 24 




B 


RETURN 


NOPRINT 


LA 


CODEREG, 12 




B 


RETURN 


SAVE 


DC 


lSF'O' 


SVCEID 

* 


DC 


AL2(IMDMSVC) 


TERMSW 


DC 


X'OO* 


PRINTSW 


DC 


X'OO* 


ECB1 


DC 


F »o« 


MYJOBN 


DC 


C 


BLANKS 


DC 
END 


C 



TERMINATE EDIT PROCESSING 

SINCE SVC 13 WAS LAST RECORD 

RESTORE REGISTERS AND RETURN 

IGNORE RECORD 

RESTORE REGISTERS AND RETURN 

SAVE AREA 

ESTABLISH REAL AREA FOR 

EID FROM IMDMEDIT MAP MACRO 

INDICATION TO REQUEST TERM 

JOBN FOUND, SO PRINT REC IND 

FOR POST 

PLACE FOR OPR TO PUT JOBNAME 

TO CONVERT LOWER TO UPPER CASE 



/* 



Figure APNDX-4. Sample Exit Routine. (Part 3 of 3) 

Some instructions in the sample exit routine require special attention. 
These are shaded in Figure APNDX-4, and they are discussed below. 

IMDMEDIT 

This mapping macro expands, as shown, into a list of equate 
statements that supply symbolic names for the event identifiers (EIDs) . 
You should use the symbolic name in your program; this is your 
protection against program failure, if for any reason, the EID values 
are later changed. 

TM TERMSW, X' 01" 

This instruction tests a switch to determine a course of action. 
Because of instructions like these, which any user exit is likely to 
use, you should always make sure your region is large enough so that the 
user exit need not be deleted at any time during EDIT execution. 

L EIDREG,12(PARMREG) 

L DATAREG,16(PARMREG) 

These two instructions access the EDIT parameter list. (See Figure 
APNDX-1.) 

WTOR 'SPECIFY 8-CHARACTER JOBNAME OF ABENDING PROGRAM*, MY JOBN , 8 , ECBl 

This instruction requests information that cannot be obtained from 
the EDIT parameter list. You can use a WTOR to request any information 
that the operator is likely to have, such as the EDIT options in effect. 
Note, however, that when you issue an SVC in a user program you risk 
abnormal termination if an error occurs during the SVC operation. For 
more information about this point, refer to the section "Avoiding 
Unrecoverable Errors" eariler in this chapter. 



SVCEID 



DC 



AL2(IMDMSVC) 



This establishes a main storage location for the value equated to 
IMDMSVC in the expansion of the IMDMEDIT mapping macro. 



APIMDX 
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Sample Format Appendage 



Figure APNDX-5 shows how to use the EDIT parameter list and how to 
handle multiple EIDs. It consists of excerpts from a sample format 
appendage named IMDUSR01, which formats three different types of user 
records. For each record IMDUSR01 produces two lines of output. The 
first line varies according to the record type. The second line is the 
same for all records. 



********************************************************************* 

* IMDUSR01 IS AN EDIT USER FORMAT APPENDAGE MODULE THAT PROCESSES 
THREE DIFFERENT TYPES OF INPUT RECORDS, THUS, THREE DIFFERENT EIDS. 
LINE ONE OF THE FORMATTED OUTPUT VARIES ACCORDING TO THE EID, LINE 
TWO OF THE FORMATTED OUTPUT IS THE SAME FOR ALL EIDS, AND IS 
PRODUCED IN COMMON CODE. 

************************** ********************* ********** ************ 

IMDUSR01 CSECT 

* EQUATE STATEMENTS 
FRSTREG EQU 

1 

2 

3 

9 

12 

13 

14 

15 

RETPTR, BASE, 12 (SAVEPTR) 
BALR BASE,0 
USING *,BASE 



PARMREG EQU 

EI DREG EQU 

DATAREG EQU 

CHAINREG EQU 



BASE 
SAVEPTR 
RETPTR 
CODEREG 



EQU 
EQU 
EQU 
EQU 

STM 



ST 

LA 

ST 

LR 

L 

L 

TM 

BC 

CLC 

BC 

CLC 

BC 
CLC 

BC 
LA 

B 



SAVEPTR, SAVE+ 4 
CHAINREG, SAVE 
CHAINREG, 8 (SAVEPTR) 
SAVEPTR, CHAINREG 
EIDREG, 12 (PARMREG) 
DATAREG, 16 (PARMREG) 
SWITCH, X* 01" 
l,LINETWO 



STORE REGISTERS 

ESTABLISH ADDRESSABILITY 

USING REGISTER 12 

BACKWARD CHAINING 

MY SAVE AREA POINTER 

FORWARD CHAINING 

REG 13 ADDREESES SAVE AREA 

GET POINTER TO EID 

GET POINTER TO FIRST LINE DATA 

Q/ HAS FIRST LINE BEEN OUTPUTTED 



YES, BRANCH TO FORMAT LINE TWO 
WHICH IS COMMON TO ALL THREE EID RTNS 
(2, EIDREG) ,EID1 NO— Q/IS THIS A RECORD WITH EID1 

8,RTN1 YES — FORMAT LINE ONE 

0( 2, EIDREG), EID2 Q/IS THIS A RECORD WITH EID2 

8,RTN2 YES— FORMAT LINE ONE 

0(2, EIDREG) ,EID3 Q/IS THIS A RECORD WITH EID3 

8,RTN3 YES — FORMAT LINE ONE 

CODEREG, 8 NO — IF NONE OF THESE EIDS, IGNORE 

RETURN REC, RESTORE REGS, AND RETURN 



RTNi 



B ZEROCODE SET ZERO RETURN CODE 

Figure APNDX-5. Sample Format Appendage (Part 1 of 2) 
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RTN2 



RTN3 



ZEROCODE 



SET ZERO RETURN CODE 



ZEROCODE 01 
SR 

* 

B 

LI NET WO 



SWITCH, X' 01" FIRST LINE COMPLETE INDICATOR 

CODEREG, CODEREG OUTPUT THIS LINE AND RETURN 

IMMEDIATELY TO THIS FORMAT APPENDAGE 
RETURN RESTORE REGISTERS AND RETURN 



NI SWITCH, X'FE* TURN OFF LINE 2 INDICATOR 

LA CODEREG, U OUTPUT THIS LINE— COMPLETE 

RETURN L SAVEPTR,4(SAVEPTR) RESTORE SAVE AREA POINTER 

L RETPTR,12(SAVEPTR) RESTORE REGISTER 14 

LM FRSTREG,BASE,20(SAVEPTR) RESTORE OTHER REGS EXCEPT 15 

BCR 15,RETPTR RETURN TO EDIT 



SAVE 

SWITCH 

EID1 

EID2 

EID3 



DC 
DC 
DC 
DC 
DC 



18F , 0* 

X'OO' 

X'EOOl' 

X , E002* 

X'E003' 



REGISTER SAVE AREA 

READY FOR LINE TWO SWITCH 

EID1 

EID2 

EID3 



/* 



END 



Figure APNDX-5. Sample Format Appendage (Part 2 of 2) 
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J"B TESTEX(T 



:cwfLETioM crcei 



PSH AT ENTRY TO AEENG |fFF5CCCC eCOSDCS?] ( 1 j 



TC" 3C713 '-i?P 



0CC2BOE6 
01C5E6F? 

oicee7eo 
ccccoccc 

\ r .TAE CCCCCCCO 



FSA 
1 TC 



TtC COOiCfi'R 
LLS CCO^JITO 
JST CGC3C71fi 
STA ^OOJCOC 



CMP 
JLB 
-|TC 

O-PQE 



scccfc:oo 

CC03C1F8 

ccccccoo 

uOl3E3.JB 



RF.SV 
C/TTR. 



CCCCCCOO 

cccccccc 



A<=Sh 
fcl-L 



AS CCCOOCOO RFSV CJCCC3JO JSCS- E7C3DGSE 



FL-CCE OOC3FAAO S S* F^FsCuCE tCCSSC^ 



SV"eO?CA38 TAB-LN CC38G22C 



G/TTR CC0C4S04 WT-LNK 

rg 0-7 accedes ccc* 

S3 P-IS CCCt-'iCZO OCCiSlT 

EXTSA JCC029EE EFC6314 

CEflFOFl CSCECUF 



COOOCOOl 

<.oo r ncti6 

FhO?OCOO 



cc:ccc20 

0C0 3CAB4 



SVU 0?"0E8 TAE-L\ CC18C3CE AFSt. 



: 1FCF = CI 



IE OC030108 
>t£ C-CC 30578 

\ c 1 ;t03F?H'-; 
Sj e ccc3e<;b8 ; 

ME CC0 3E9D0 
\E OC.C3EA70 



RSP-COE C2C3016E 
RSP-COE 0103E26E 
RSP-C2E ClO?r2Sf 
RSP-COE C103E8F.E 
RSP-CDE C1C3CFA8 
RSP-COS CIC3E2D8 



C3 


EAfiO 


C? 


H68 


03 


?368 


2 


F29 8 


03 


E2o8 


3 


E23 8 


) 


339 8 


03 


E438 



Ar*?l C6 NCCE CCCOCO 
AT" I 30 NC'Jt C3C3 c f 



ATPl 



atri ec ncce create! 

ATRl BC NCCE 03E2S8! 

ATR1 6C NCCE C3E268: 

ATR1 C3 NCOg C3E€4«I 

ATRi 60 NCOE 03E4S8: 




JPQ 
CTC 
SQS 



CCCCCCCC 

ccc?Dite 

CC03A568 



PSw CCC'iCu3 



occeoctc cccecft4E 

4tC£3* 10 "OCWOSC: 

0CC3CAPC E2FR=2C^ 



JUOCCCCC FStf c FCACOCC SCC6AFA6 



O/TTR CCC04SOI fcT-tNK C003CA38 

RG C-7 CC105EEO CCC3CA9E ^COICEC 

or, ^-15 JCC3C11? ■iC010=?2 CC03C71 

EXTSA E7EEE2C9 CfClFCFl OCOCoCCCl 

CCCCCCCO CCCCCCCt 3C12CG02 



CC03C/S3S 
I0G03CABC 

F4FXF840 



l«2C.m CCCJCAiE 

*CClC^<ifr CClbCJOC 

FfFCFCFC 4CCSC c Ct: 



0003D39G: 
NE 0OC3E6AO: 
NE C003E918: 
NE 30C3E9rO; 

H£ 0003E9C8; 
NE 000 3£ A 78; 



-RE 300if-9£0; 



|NE O0O3E9EC 
NE GC03E9BO 
NE 00C3E9C8 
NE 30Q3EA£8 

\f ;:cccoco 



«nr-«p oocccoc; 



NM 1GCOA05A 



RSP-CDE U103E298 
RSP-CDE 0103O358 
RSP-CDE (jl.9 3F.S4 3 
l<5P-C0E C103E3CF 
SSP-COF. 02035368 
KSP-COE 0203E3S6 



XL/wj C3 C ?F0 
XL/MJ 03D1 56 



NCOE C3E3? 



~t>Rr CCCCCCOC N^ IUG019C 

!?.iC-R& CCOCCOCO H* IGC-019CJ: 

ooc-ip caoacocc nv if.r.oi9°<! 

eCC-ap JJtOOCCC M" IG^ul9es 

*(".C- = i: CCCCCOO'j I ^^' ABENDXIT 
RCC-RE 



liili 

ATR; 



C3E33-' 
03':3J9 

O30FA8 
03E3Q8 
33E2C8 
03E43E 

03E398 



ATPI 03 
4TP1 C3 
ATR1 Bt 
i T P 1 BO ■ 
ATR1 8C 
&TP1 EO 
ATRt &C 

atri eo 

ATR1 6C 



NCCE 03£8E8i 
NCCE C3EAA0 
KCOE C3E368 
NCCE C3E338: 
hCOF. C30FD8: 

C3fc^0B! 

C 3e3Ce 

036438; 

C3E3C8; 



NCCEi 
^CDe! 
NCCE; 
NCCE; 



J0C3COOC 



RTC-RP (.CCCCCUC 

ROC-RB 0(30 00 00 C 

1GC-RP. CC03CCDC 

RCC-RE CCCOCJCC 

.?fiC-op OCOCCCCC 

inc-Rf ccoccooc 

ROC-RB 00O0C< 

POC-RB oaccooc 

RPC-RF CCCOCC 



~C1"1-. 



XL/^J CjFi55 
XL/*IJ 03E288 
XI /"J j3E^5S 
XL/"J C3L22S / n 
XL/"J 03p56G| ( 2 



XL/*J 




Hiii 



ii»n°RxEii«w 

IMJJ**!I50T 


USE 


01 


EPA 


c c .;ico 

C7E1T8 


.'.TR? 

ATR2 


2C 
20 
20 
2C 
2C 
2C 
2C 
2C 
2C 


XL/MJ 
XL/*J 
XL/"J 
XL/*J 

xl/vj 

XI /MJ 
XI /«J 
XL/ W J 
XL/»J 


03E?70 
C3 = ">S0 


/<?G01 Q CC 


USE 
USE 
USE 

ose 


C3E328 


C2 
01 
02 


EPA 
EPA 
EF.A 


(GG019CH 


C7E0F8 


ATR2 


C3E2F8 


[GG01°AC 
IGG0I9A'.: 


C7C810 
C7EcBG 


4TK2 
AT>^ 


030F98 
03E3C8 


[GG019CI 


USE 
USE 
USE 


01 

02 
02 


EPA 
EPA 
EPA 


C7CC00 


ATR.2 


03E2C8 


[GG019AK 
IGG019Af 


C7b9 jd 

C7E838 


ATP.2 
ATK2 


C363F8 
03E388 




Figure APNDX-6 



Sample ABEND Dump Showing Fields Needed for Debugging 
User Exit Routine ABENDXIT (Part 1 of 3) 
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C7C990 
070920 
07D940 
J7D960 
0709^0 
J7C9A0 
17C9CC 
3709=0 



LOAC MC 



05D030 
J5D0A0 
05QGCC 
3?D0E0 
350190 
350120 
050140 
050160 
C53180 
C5C1A0 



4BC05CC8 9001D040 
91C04005 478C5114 

4U05Cie ^eeaccoE 

4 78Ci.il 4 lA6- ( ?i40 
7CCC4780 
7CCC3C09 
20522C3E 

'20?2C7PE S8ERDC14 

0EENCX IT 




41UCCC0 CA3712FF 
SICE2034 47605114 
914J40C5 47805C86 
2C5C4780 50CA4580 
511447FC 5CA6G707 
C7FE45EC 5CEA1B88 
C7FEIBE6 4*8C2C*2 
C7FEC7CC C7CCC70O 



19CFC COCT 
58J1C010 
3305C1AC 
C104C54O 
Q0C10A31 
C1224770 
58DDCC04 
COCCCCbC 

oQoccoac 
occcccoc 



05CC5C00 
9L01C125 
0C33CCCC 
D6C640C1 
414CC12A 
:CCe6«50D 
S8EDCCCC 
CCC64178 
3CCCCCCC 
CCOCOCOO 



CCDE4190 
4',10CC < =6 
EJD7C5C3 
C2CEO?C4 
D6C74CC0 
3G0F477C 
SEOCDCU 

cccccccc 
cccccccc 

:3FFFCCCC 



LOAC MCCULr. 



3DC14 1821188F 
CC5EF 58FC2034 
2C5C4710 



47805010 05EF98J1 C04041U C00C0A37 
45E05CEA 58740COC 4660203E 91042030 
1B764177 0C011817 1PC60A67 91202024 
50BE4177 00044580 50BE1A7F 197647B0 
3C083C08 F2233C0D 70C04FF3 000640F3 
43802C51 IA7847FC 50A69104 203C4780 
1A834P80 5C084838 00064e83 000E4080 



FAILING INSTRUCTION 



CCCl fcC-in 00091 130° 9101C124 4710C0C8 5821CC0C 

41400000 5940C126 4770CC68 4S10C072 0805D1B0 

C:.CtEE40 F86CC3C8 C1D9C1C5 E3C5C94C CLCfcC2C5 

CS0EC740 D7D9D6C7 D9C1D400 0A234110 C12£4U0 

C13205C7 3C00C12A 4770C000 96J1C125 C5012COO 

CCB6D5C7 3C00C12A 4770COE6 96ulC124 41F0CC38 

C7FE41FC 001647FJ CCEA41F0 0O0C47FO CuEAOOOO 

CCOmCOO OCJlJOOO CCOOCOOC OOCCOJCO OJOCCCOO 

CC:CCCOO COCOOOOO OOOCOOJG OOOOOOJO CuOOOOGO 

CCCCOCJO 404C4040 40404040 404G404C 404C4040 



+..J.... 

*AME OF 
* A 


.SPECIFY E. CHARACTER JOHN* 

ABENDING PROGRAM A...* 

.C . .A.N. ..A A.N...* 




















47F0FOIC cCGOGOOG 

t 83"i?C44 48602052 1A561Q45 4720806C 

05EF9550 3004478C 802E5857 3t004i55 

Z.9i!45 204847F0 8C6C**** "" **>U.A45; 

90352044 




SAVE AREA TRACE 



l«CFfi?«P H AS ENTEPE3 VIA LIN 1 * 



AT EP IMOPRDfP-21.00 



hCl CCCCCCCO 
Rl Q006B7F0 
P7 C0C3CCEC 



h-?A CCCCCCOO 
"2 CCCCCCCO 
R9 CCC3EAC8 



iMCPRCMP WAS ENTERED VIA CALL 

SA 05L«7C V.DI CCCCCCCO H S« CCCt37c0 

Rl CCC5F0*5 R2 SC0CCC5C 

F7 cccrcec rs ccc3Eacs 

SA 05E5°3 hOl CCCCCCCO F SA CCC5DS70: 

"1 CC0ftlE48 P2 CCCCCCOC 

17 C003CC6C 58 CCC3tACE 



SA OfclFBO 



hDl 18ft9]f3U 
Rl C00*2n?0 
R7 CCC0G033 



FSA CCC5E598 

a; cccccooi 

R6 CCC63S20 



ISA CC05D973 

R3 5C03EA30 
R9 0003AFE8 



ISA C005ES98 
R? 5C03EA30 
R9 GC03AFE8 

LSA 00061FBO 
»3 CC05E7S3 

R9 8005DCC4 

LSA 0JC63C78 
R3 00C6211O 
R-- 0Ci)5C?40 



PET 000243EA 
R4 C003ACCO 
PIC C003EA30 



RET 6C05C900 
R4 C006E7FB 
RIO CJ03EA30 

RET 4005CD1C 
R4 C005F0E8 
"10 0003EA30 

RET 50061F74 
R4 00000001 
RIO CJC6es5C 



EPA 105r?18 
R5 0003At68 
Rll OOCCOOCO 



EPA 0C05CAS8 
R5 0CCC0004 
PU 4005C552 

EPA 00061848 
P5 0CC0C0C4 
Rll 6005CA9E 

EPA 00061070 
R5 000O0C20 
Rll 4C0fcl84E 



RO FCCCOCOC 
R6 C003C^4* 

P 12 4CC7EC5A 



RC 3CCC6DEA 
R6 G006B7FC 
R12 CCC5EF5C 

RO BC0C6DEA 
R6 C0C^B7FC 
R12 CC05EF5C 

RC BC0C60EA 
R6 CCCCCC01 
R12 CCC5FF?C 



Ot?C73 nOl CC0*CA23 H^A CC'.-'FBC LSA C3064178 RFT 60062DCE EPA00C63E10 RC BCOCfcCEA 




SA 06417S hDl C^ICCEE^ 
|R1 CCCf^20C| 
R7 0CC£Ce4f: 

EA 060EB0 WC1 BCA8441C 
ni COCftBlCe 

R7 CC060648 

SA 060FAO HOI ^UOCIBS 
PI 4111C010 
37 B424CA0A 



INTERRUPT AT 05CC92 



OOCEECING FACK V It PFG 13 

SA 064178 taOl C61CCJEF 
Rl C0Ot'20C 
R7 CCC6Ct4o 



R2 CCCCCC01 

R8 CCCeB520 

F?A CCC63C7E 

R2 CCCCCC01 

R8 0C0d3C2O 

h«A CC06«176 

R2 CCC60F6C 

RE CCC6B158 

FSA CCCf0E3O 

"2 18315620 

'f SClCCfEC 



FSA CCC63078 
R2 CCCCC0C1 
F8 CC0£3C20 



R3 CC062110 
P9 0005D340 

LSA COOdOEEO 
R3 C0O62110 
R9 CC05D340 

LSA C0060FAO 
R3 OC05D080 
R9 C006B158 

LSA 4770B4C6 
R3 C6801222 
P9 4B30C13F 



L5A 00060 E BO 
R3 CC062110 
"9 C0050340 



R4 C30300G1 
P10 0006B55C 

RFT 43063F10 
R4 COOL 3001 
»10 0006E55C 

RET 90060AC2 
P4 COOOOOOl 
RIC 000&E55C 

RFT 8612E3F6 
R4 4700B41E 
RIC 40310000 



RET «,0063F10 
R4 COOOOCOI 
"10 O0C6E55C 



R£ CuCCOCOl 
R12 CCC5FF5C 



EPA FFFFfFFF; 
P5 0C0C00 20: 
Pll 5C06C656 

EPA 47FCB472I 
R5 4590E48A: 
Rll C7011C02 



EPA 0005C080 RO 8C0C60EA 
R5 000CC020 Pb OC05OC8C 
Pll 6CCC3E16 R12 C0C5EF5C 



© 



SYSTEM SAVE 
AREA 



IMDPRCTL 
IMDPRMSC 
IMDPRFRM 




PAGE C005 

IMDPRFLT 

IMDPREXT 

SAVE AREA 
IN USER EXIT 
PROGRAM 

5EF50 
+6AC 

5F5FC 




Figure APNDX-6 



Sample ABEND Dump Showing Fields Needed for Debugging 
User Exit Routine ABENDXIT (Part 2 of 3) 
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■J5F490 




TOCCCCCC 


lllfe****,. 


_^#tfoccc 


OOOTSs. 




C5F4A0 


030014CC 


cccccccc 


cccccccc 


"CCCCOCOO 


040C0COT» 


— *^" 


05F4C3 


O0CCC0C8 


ccccccco 


CCCCQCCC 


CC5C0C00 


ooocococ 


ccroccoo 


C5 c: <»E0 


CCCC033C 


occcccce 


ccccccco 


cccocoo 


OtCOOOOO 


OOoOOOOC 


CfNES CEF50C-O5F52C 


SANE AS A80\iE 






35F54C 


CCCCCCOC 


ccc;cccc 


CCC5F6C 


scc^-so 


0005F920 


OCOi'CS- 


35F560 


f0C6 133 8 


20C45S10 


1314912C 


:coti&3A 


042E-4123 


0CJo4CFL 


C5F5 30 


40149110 


200247CC 


K4C412C 


CEC4^130 


0CC5FFE0 


ocosffec 


05F5AC 


03CCQCOO 


ccofcno 


?F37252A 


COOC08A9 


G00G0013 


OOOCOCOt 


5F5CO 


30C?FlfcC 


CCCFP12C 


CQ05F14( 


3CC5E c 3!i 


8C05E8Q8 


34CbOUi>0 


35F5€£« 


0OCCG3OO 


0305FF36 


C3C5FCF8 


0CC50A34 


OJOtOCOC 


3CCCCGJ0 


5F6OC 


C3C5CIE0 


0322EC56 


C CEC3CCC 


C5BC412C 


31Cf e-cco 


81CA502D 


05F620 


911CE25A 


i7ic i: »cec 


41103221 


4100928A 


OAi8i2Ff 


47?081bC 


C5F64C 


3A139110 


82544760 


BieC4120 


822A5C3C 


C 6 944 100 


C0654513 


O5F6S0 


12114780 
5380CC44 


80024740 
4120821D 


8COC49 10 
1AH4223 


C13C47QC 
CCC04230 


3v)?841]C 
60C31806 


OC 015880 


J5F64C 


4110RC2A 


0^F6C0 


924C6001 


D2E26CC2 


6CC14980 


C154478C 


B1849180 


C15C4780 


35F6E0 


58PDC0C4 


S8ECCC0C 


CuFeL031 


C6301223 


479CB13E 


41000035 


C5=700 


9 24C6001 


D2F26CC2 


etcicoc 


1233477C 


8UC9110 


C15fc^7tO 


05F720 


R12E45 90 


B1T-47FC 


B] 221513 


459CBC38 


49 63C154 


4770 8126 


05F740 


181**111 


CCCCCA3A 


47F 080C4 


5S8CCC44 


9110C15E 


47 10 e 15^ 


0"iF760 


94FJFC156 


41?CtCCl 


4 15C6071 


414CQCC8 


D50720U0 


C1BO4770 


05F7S0 


eOC292ES 


600C4F80 


C1E45CF.C 


CC4447FQ 


BCA45813 


C0<»84A10 


35F740 


C02OF3?2 


B2 16CC2E 


C .6FCB21B 


T202C29E 


B2180277 


ciCOlC^A 


fl'serco 


1BCO*UO 


C0CC47 C C 


B1CC1800 


161 15SF0 


r(-,;»C7FF 


OOOOOOX 


C5P7E0 


ooccoooo 


CCOCCCCC 


eccspfE 


S20 7ES38 


000fc3520 


0<.05Fc!j = 


35F80C 


:ooocccs 


CCCCCC18 


CCC43523 


CCOOOO" 


300C0036 


CO0'jF6C0 


35*820 


30C56F50 


FOFCFC e O 


r:F2404o 


C c l 11=07 


D9C9D5E3 


C '12941! 00 


C5FF4C 


iaseoasrs 


ISClilFA 


CCieCSOF 


C20 636-3 i 


0GCC4CC? 


COCOJOJl 



JjLlioUOO OJt 

occocooc cjoccd 

3GCC300C CCOCCOOO -f '- 

OC^^LC CJOCOCOC * - 

mky*Jt(. 3G05Fu?4 * { s =- 

Ot'(iTE\30 G30t-064P * ■■ -! 

OCOEFfX: F8<iF47F0 * = . . .0* ; 

03CC0lJ0cK0C00OO0o * ■■ 

15; 24 24fi \s<-7 0A1.2 * . . 1 . .. 1 . . . i . . .2 . . . ¥ w : 

03L00002 [CJU" ji -0 1 * 1 5 1 -■ 

0C0S1302 58CC1B212 *., J .,,...,..,... .F ..K....* 

4510B031 -JFC5V«M< * h. * 

BCtCOAJA ■bOlOCOTL i •,« Pr> . ^i,^ «F * 

4780 ?072 4190eCF2 * ■ ^5D3^tO * 

C0441E81 47008174 *,.. , ■ r\f-\ * 

S!T0103J 0iErC7ro *... XlUU 3 ■>* ■ 

eC0258FO L654C?tF *. . A ....<• C<- ... *\ 

45 ICEOtL JAOAU-C 1 *... KHK I Q '= 

eiit94cF ri:>t"7ro *. ....}r.y:... A /...c* 

A5-J0K184 410CC0c c <• A * 

49i~0i:if>b t 7701317^ * O.J A A ■ 

P174E724 Fl£>?<i7t'0 *..A N...A G ■' 

Clic5010 C0ft:4F10 + .K A C A - 

4UC30J2 •«7F0'.>C^4 *..■ u. .K .8. . .K . . .3 0..'- 

OOCftlFTO CCOCOCCO * C CF * 

0C05F7D4 a005F811 t. ,«Z. ..♦ .. .8. . ,7M.. 8.* 

00^5^730 F505FciAC « a...?...^.^ 

OD(0010u 2JOCCCC0 •> . . ..CCCOCi . . ."-< INTH <■ 

3400JC31 9205F^1C « c.$ 



JfsZCQ 


53FG3S. 




Z*32tO 


817A53FS 


^,-<-<7F 


350303 


*8F0B6A<r 


^36C9CCl 


:5D320 


5A40F7CA 


50AC870E 


15034C 


i3«Ofe-4GE0 


3CC4739C 


;sn360 


E?roClC3 


C5C«.C44C 


C5 0380 


434C«04C 


«04C434C 


05!:3A0 


404C4043 


4C4C4C4C 


3503C0 


43404340 


404C4C4C 


LINES C5D3EC-05C4CC 


, :5'3420 


4J4C4C4C 


8CCCCCC0 


a'!D440 


434Q4C4C 


404C434G 


tINE C5C46C 


SAME AS 


t3?048'0 


4C4C*0 4C 


4C4C4343 


C5C4A0 


00000300 


CCCCCCCC 


3EC4CC 


40'«0ijM0 


4C4C4040 


LINE C5C4EC 


SAME AS 


C505O0 


40i04C'C 


8CCCC3C0 


050520 


cocMFee 


C0C7CCC9 



C3J 

816258 
020385: 
1SE53E: 
C7CCC4; 
4C4C4C 
4C4C4Ci 
CCCCCC 
4C 4C4C 

SAPE AS! 
4C4C40! 
4C4C40! 

iA60VE 
4C4C4C 
CCCCGC 
4C4C4C! 

ABOVE 
CCCCCC 
CCQe48i 



DC CC 

ib £CCA54F0 

60 OC204100 

:cccoccc 

40404C40 
4C 4C4C1C4L 
CC CCCC3C00 
4C 4C4C4C40 

A80VE 
40 4C4C404C 
4C 4C4C404J 

4C SCCOOOOO 
COOCOO 

4C ^CtC404C 

F8 4C404C4C 
CA 40404040 



JB362 

"PCOC07F!-" ocuoIJn^^ ^^)0(. :?rA8 

8886185F 5C40B706*>*— otf&A 47C0815A 

1,03^ 1CE0 50F037lfi 5CF0H71A 5«E0H71'>: 

OCOOOOOO CL0-203C ClC2C-^5 C4C7C u E?: 

40lJtC'hC <-U't040'+0 40404040 i J4C4C40 

tC^04C40 40tO'*OtC 40^04040 404C4C40 

OCOCOCOO CtCUCCJO JO0C30OC J-JOOOOOO 

40 4 ChC-3 lO i 040'.C 10^04040 '.04040^0 

'>0434C'«0 <*C404040 'iC^3'<040 4C4Ct040 

•nj'tC'H.'tO '•04040'tO 4040<>040 •>C4C < >0^0 



Jcccoc/-~\crcoco(; o 
occcoa A j)40'»040 ' 

<.0«34C\^/O"U40-*0 4 

IC1C2C5C5 C-t c 7CgF3 hCC r COoC] 0006 2: -IF 
4040'(04u ~t>W)l:zO 



,'OC C3C0COOO 
l'tu 4jiC>040 
54u 40i04C40 




rrt4i«o 

'(364120 
044140 

:64 160 
0<S418C 
J641A3 
"641C0 
C 6* 1 EC 
36423" 
364223 
364 240 
C*<-263 
064 28O 
1642A0 
3642C0 
0642E9 
364 30J 
164320 
364340 
C 64363 
364380 
364343 
C643C0 
3643=0 
064*00 
364420 
36 4440 
Cfc*460 
C 64480 
C644A0 
3644C0 
06446O 
164500 
064520 
C64540 
CS4560 
C64583 
C645A0 
C645C0 



C4CbO540i 
33CCC0CO 
OOCC3C0«i 
14CC1C04! 

O3C<lC300i 

ococcicc! 

33CrcCCC 
QCCCCCCC 
E3C C >C443 

C5E3C5C4; 
502C829E! 

i A2cce:4; 

C60045e0l 
5M9CC6AC 
C*'04ieF3! 
8722C022; 
B08C41F0! 
BC705820 
63174480 
02C3e7Bi! 
91CB58 20i 
e6Bt5880i 
91048CC3! 
918C6CCA 

50eoe7iAl 

C02OF221 
96FCP724 
B723583C! 
C5PPS4EF! 



CCCCCCCC CCCCCCCO 

CCCCCCCO CCCCCCCC 

OOCCCCCC CCCCCCCO 

CCCCCCCC CCCC3CCC 

CuCCOCCA 3«CCeCC3 

CC7SCCC0 FC3C0CCC 

CCCCCCCC CCCCCCCC 

2407D605 4CF.4E2C5 

40E40706 D'.«CEAE2 

411Cr)2=F «l c ::JC£i 

583C2CCC 41203C1:! 

F01E47FC 5:E03CCC! 

= 6K9CCf ^f3C9CCt! 

056FS6FC 8<A65S3Ci 

S6FC37:S 41 c C3CCl! 

C0C15AFC 8il250rcl 

B71241E3 fWUftO! 

■"6?f5£7C 9CC4=5C6i 

CC4C41FQ F13E50FC! 



rsoooc>» 

8082FA 

C5F8C5EF 94F"7V« s ^^ - ^fCTC0 4C <,7F0e2FA 
OOOfe^llA «?^458FT;;'.lC05tF L30f.'0?8 
iOOoei30C COOOCCOl 3CC>^J10 CCOCiJCOl 
0CG5C3<O CCDtaiiC taML^illlCIVOPil 
0C00CCC1 0l-06?110 oi DJbi ci V/ /C 
O0C6655C 6C063616 OuWtfTgO acSw lTS 
3 1 j0' , -^521|0C3«2J30|3(.0o'..'2o|03uc' 




I 



0001 'J.76? FJO^CO? 
C0C27?0 CTC9C!- 

oc^toccj /;ccoo 
o::coooo /i 

CCCC303O/OCCyO30 

ccscooui/occyfojiO 
ucc:cc:/ occcot oc 

0C30/) CCC\C03C 

SS2SSK cI^EID IN CURRENT 

^Mti* I" TRACE ADDRESS 
^ADDRESS OFGTF OPTIONS 
OUTPUT AREA ADDRESS -:i 



ADDRESS OF FIRST DATA 

BYTE OF CURRENT TRACE RECORD! 



EfUS REQUEST E>IT 
SER.S RECLEST .F.. 

..C.uF 

■ J....' 

B.C...C. 



C6C*1E C 3 
C04C0 2C2: 
471C8100 
47CC915A 



C5EP5S3Ci 
EC1C872S! 
55FCB6 A£; 

5A4C87CA! 



58EC8716 8EEC0C2C 

8722CC26 <(FC8724 

3201303^ 9i 235823 

<;aci9SG<; 3005477c 

e -00847FC 8?0250EC 



INPUT TRACE RECORD ADDRESS 



871213F8 tAfcCoh°t '-A?0B690 J'.^Ci*i f )0 C0-*C41A0 

7C054770 ?120:20K 60*13 72 '<7' : 0E12u illOPi'EA 

CC4C02C3 9168CC4C 9240B738 C277e739 87389608 

9C04412C 3CC r,: 3H2 R7272C31 96F3E/'E : .10 1 F;7:' r - 

02C3HC1C P7255E30 C04C = 207 JCJlfcbAA 50809014 

5fbC9Cu4 02C3B.i°'3 6C0A54F0 I'ff-hio-jc 5C4CL 1 7Cft 

5D40870E 18E58EE0 OO2O410O 003C10EO 50F08716 

41CC-3C3C 1DEC50F3 e71E50E0 E7165820 E71£4t20 

02013C37 67225E23 67164E20 C020F321 E722C026 

971<;4F20 L020FB21 P722C026 9c>"3P 7 ?4 C2i) 1*021 ■ 

B1E6 , :203 CC4C37B2 47' : 0?1F0 411CC302 :°FCCSFe 

DC0C9COC D014C580 41F00202 1BBF5OD0 66C241FC 









OO •^•J•v L • 










J 





















-.c..< , 



,..c c= 



Figure APNDX-6 



Sample ABEND Dump Showing Fields Needed for Debugging 
User Exit Routine ABENDXIT (Part 3 of 3) 
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Debugging a User Program 



Figure APNDX-6 shows a sample ABEND dump of the user exit routine 
ABENDXIT, shown in Figure APNDX-5. Certain important fields are 
highlighted in the figure and marked with numbers; the numbers refer to 
the explanations below: 

1. PSW for the abnormally terminating program- The address in the 
second half of the PSW is an address in the abnormally terminated 
program. To find the entry point and name of the program, compare 
this address to the entry point addresses in the contents directory 
entry list. The abnormally terminating program is the one whose 
entry point address is closest to and greater than the address in 
the PSW. 

NOTE: If the address in the PSW does not immediately indicate the 
entry point address of the failing program, you can locate the 
beginning address of the abnormally terminating program by tracing 
IMDPRDMP* s save area chain. See point 4, below. 

2. Part of a contents directory entry (CDE) . This shows the name of 
the abnormally terminating program, ABENDXIT, its entry point, 
X'05D080', and the pointer to the appropriate entry in the extent 
list. 

3. An extent list entry. This shows the beginning address (not 
necessarily the entry point) of the abnormally terminating program. 
Subtract this address from the address in the PSW to find the 
address of the instruction following the instruction that failed. 

For example, in this case : 

address in PSW - beginning address = offset (hex) 

5D092 - 5D080 = 12 

The failing instruction in ABENDXIT can be found at offset X'12* in 
the program. (See part 2 of Figure APNDX-6, number 3.) 

4. The first save area in the save area trace table (system save area) 
is chained to the following IMDPRDMP module save areas: 

IMDPRCTL - IMDPRDMP control routine 

IMDPRMSC - IMDPRDMP scan routine 

IMDPRFRM - EDIT control routine 

IMDPRFLT - EDIT trace record selection routine 

IMDPREXT (or IMDPRAPP) - EDIT user program selection routine. 

5. The user program's registers are stored in IMDPREXT' s or IMDPRAPP' s 
save area. Add the contents of register 12 to X'6AC to get the 
address of a fullword that points to an EDIT communication table. At 
offset X'IDO' into this table are the following: 

A. The 8-byte EBCDIC name of the current user program (the failing 
program) . 

B. The entry point address of the current user program (the 
failing program) . 
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APIMDX 



These fields are shown in part 3 of Figure APNDX-6. 

Register 1 in IMDPREXT's or IMDPRAPP's save area points to the 
.parameter list that EDIT passes to the user program. (See Figure 
APNDX-1 . ) 
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JCL and Control Statement Examples 



The following examples show how to test a user program. 

Example 1: Link Editing a User Exit Routine into a Library 

This example shows how to make a user exit routine available to IMDPRDMP 
by link- editing it into a system library. 

//LKUSRPGM JOB MSGLEVEL= (1, 1) 

// EXEC PGM= IEWL,PARM= , XREF f LET, LIST , NCAL' , 

// REGION=96K 

//SYS PRINT DD SYSOUT=A 

//SYSLMOD DD DSNAME=SYSl. LINKLIB, DISP=OLD 

//SYSLIN DD * 
object deck 

NAME EXITNAME 
/* 

In this example: 

EXEC Statement 

invokes the linkage editor and requests maximum diagnostic listings. 
SYS PRINT DD Statement 

defines the message data set. 

SYSLMOD DD Statement 

defines the output data set, in this case the linkage library, 
SYSl. LINKLIB. The output data set can also be a permanent library to 
be invoked later by a JOBLIB or STEPLIB DD statement; in that case 
the SYSLMOD DD statement should be coded as follows: 

//SYSLMOD DD DSNAME=MYLIB, UNIT=2314, VOL=SER=231400, 
// DISP=( NEW, KEEP) ,SPACE= (1024, (20,2,1)) 

SYSLIN DD Statement 

defines the input data set, in this case, the object deck for the 
user program. 

NAME Control Statement 

specifies the member name, and thus the program name, to be assigned 
to the user program. In this case, the member name is EXITNAME; to 
invoke this program in a later execution of IMDPRDMP, you would have 
to speciy EXIT= EXITNAME on the EDIT control statement. 
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Example 2: Testing a User Exit Routine 

This example shows how to link edit a user exit routine into a library 
for testing. 

//TSEXTRTN JOB MSGLEVEL= (1, 1) 

//STEP1 EXEC PGM=IEWL ,PARM=*XREF, LET, LIST, NCAL* , 

// REGION=96K 
//SYS PRINT DD SYSOUT=A 

//SYSLMOD DD DSNAME=MYLIB,UNIT=2314, VOL=SER=231400, 
// DISP=(NEW,KEEP),SPACE=(1024, (20,2,1)) 
//SYSLIB DD * 
object deck 

NAME MY EX IT 
/* 

//STEP2 EXEC PGM=IMDPRDMP,PARM= , ER=1' 

//STEPLIB DD DSNAME=MYLIB,UNIT=2314, VOL=SER=231400, 
// DISP=OLD 

//SYS PRINT DD SYSOUT=A 
//PRINTER DD SYSOUT=A 

//TRACEDD DD DSNAME=TRACE2,UNIT=2400, VOL=SER=TRC2TP, 
// LABEL= ( , NL) , DISP=OLD 
//SYS IN DD * 

EDIT DDNAME= TRACEDD, SYS , EXIT=MYEXIT 
/* 

This example consists of two steps. In the first step : 

EXEC Statement 

invokes the linkage editor and requests diagnostic information. 
SYSPRINT DD Statement 

defines the message data set. 

SYSLMOD DD Statement 

defines the output data set ; , in this case a permanent job or step 
library named MYLIB. 

SYSLIN DD Statement 

defines the input data set, in this case an object deck containing 
the user program. 

NAME Control Statement 

specifies a member name (program name) to be assigned to the user 
program. Specify this program name on the EDIT control statement 
(EXIT=MYEXIT) when you need the exit routine for a particular 
IMDPRDMP execution. 

In the second step : 

EXEC Statement 

invokes IMDPRDMP and specifies that, if an error occurs in the exit 
routine, EDIT should print the record associated with the error and 
delete the exit routine. (See the discussion of the EXEC statement 
in the section "Job Control Language Statements" earlier in this 
chapter . ) 
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STEPLIB DD Statement 

defines the data set that contains the exit routine, which, in this 
case, is MYLIB, a data set defined in STEP1 by the SYSLMOD DD 
statement . 

SYSPRINT DD Statement 

defines the message data set. 
PRINTER DD Statement 

defines the data set to which IMDPRDMP output will be directed. 

TRACEDD DD Statement 

defines the data set containing trace records to be processed by the 
exit routine. 

SYSIN DD Statement 

defines the data set that contains the IMDPRDMP control statement. 
The data set follows immediately. 

EDIT Control Statement 

invokes the EDIT function of IMDPRDMP, specifies that the trace data 
exists as an external trace data set, and supplies the name of the 
exit routine. Note that this name is the same as the membername 
specified in the NAME control statement in STEP1. 

Example 3: Testing a User Format Appendage 

This example shows how to add a user format appendage to a temporary 
data set for testing. 

//TSTFMT JOB MSGLEVEL= ( 1, 1) 

//STEP1 EXEC PGM=IEWL, PARM=*XREF, LET, LIST, NCAL', 
// REGION=96K 
//SYSPRINT DD SYSOUT=A 

//SYSLMOD DD DSNAME=£ TEMP LIB, UNIT=SSYSDA, 
// SPACE=(1024, (20,2,1)),DISP=(NEW,PASS) 
//SYSLIN DD * 
object deck 

NAME IMDUSR01 
/* 

//STEP2 EXEC PGM= IMDPRDMP , PARM= * ER=3 ' 
//STEPLIB DD DSNAME=&TEMPLIB,DISP=OLD 
//SYSPRINT DD SYSOUT=A 
//PRINTER DD SYSOUT=A 

//TRACEDD DD DSNAME=TRACE,UNIT=2400, VOL=SER=TRCTPE, 
// LABEL= ( , NL) , DISP=OLD 
//SYSIN DD * 

EDIT DDNAME=TRACEDD,USR=ALL 
/* 

This example consists of two steps. In the first step : 
EXEC Statement 

invokes the linkage editor. 
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SYS PRINT DD Statement 

defines the message data set. 
SYSLMOD DD Statement 

defines a temporary data set that contains the format appendage. 

SYSLIN DD Statement 

defines the input data set, in this case the object deck containing 
the format appendage. 

NAME Control Statement 

specifies a member name (program name) for the format appendage. 
Note that the name shown in this example conforms to the convention 
for naming format appendages; that is, it is formed from the prefix 
IMDUSR concatenated with the format identifier (FID) to be 
specified in the GTRACE macro when user records are created. 

In the second step : 

EXEC Statement 

invokes IMDPRDMP and specifies that ABEND processing should not be 
suppressed if a program check occurs in the format appendage. (See 
the discussion of the EXEC statement in the section "Job Control 
Language Statements" earlier in this chapter. ) 

STEPLIB DD Statement 

defines the data set where the format appendage resides. 
SYS PRINT DD Statement 

defines the message data set. 

PRINTER DD Statement 

defines the data set to which the format appendage will direct its 
output . 

TRACEDD DD Statement 

defines the trace data set containing the records that the format 
appendage will process. In this case, the trace data set is on tape. 

SYSIN DD Statement 

defines the data set containing IMDPRDMP control statements. The 
data set follows immediately. 

EDIT Control Statement 

invokes the EDIT function of IMDPRDMP, specifies that the trace data 
exists as an external trace data set, and specifies that EDIT is to 
process all user-created records. 



334 Service Aids (Release 21) 



Index 



Indexes to systems reference library 
manuals are consolidated in the publication 
IBM System/360 Operating System: Systems 
Reference Library Master Index, Order No. 
C 2 8- 6 64 4- For additional information about 
any subject listed below, refer to other 
publications listed for the same subject in 
the Master Index. 

8USE parameter 

of PTFLE EXEC statement 227,228 
* control statement 295 
used in SPZAP 
function 295 
parameter 295 

abbreviations for PRDMP control 

statements 183 
ABSDUMP control statement 29 3-294 
used in SPZAP 
format 293 
function 293 
parameters 293-294 
ABSDUMPT control statement 293-294 
used in SPZAP 
example 305 
format 293 
function 293 
parameters 293-294 
AID (application identifier) 

in GTF output record 70,76,77 
ALL parameter 

(see PRINT control statement) 
allocated main storage 

(see PRINT control statement) 
application identifier 
(see AID) 



BASE control statement 29 4 
used in SPZAP 
example 307 
format 294 
function 294 
parameters 294 



CCHHR control statement 289-290 
used in SPZAP 
example 30 5 
format 289 
function 289 
parameters 290 
changing space allocation for 

SYS1.LOGREC 23 
choosing a service aid 13-14 
combining PRDMP control statements 192 
comment control statement 

(see * control statement) 
communications vector table 

address of, how to specify 184 
(see also CVT control statement) 



comprehensive trace 

how to request 60 
CONSOLE= parameter 

(see IMDSADMP macro instruction) 
console communications 
in GTF 63 
in JQDMP 91-93 
in OSJQD 161 
in PRDMP 183 
in SADMP 265-266 
CONSOLE control statement 29 5 
used in SPZAP 
examples 306 
format 295 
function 295 
parameters 295 
consoles supported by SADMP 257-258,268 
control block formatting by PRDMP 177,18 6 

(see also FORMAT control statement) 
control section, description of 131 

(see also CSECT Identification Record) 
control statements 
for DIP00 23 
32 
109-111 
162 

183-192 
230-232 
289-295 
CPU= parameter 

(see IMDSADMP macro instruction) 
cross-reference listing 
output of LIST 

contents of 115-116 
how to obtain 109 
CSECT identification record 
how to create (PTFLE) 231 
how to print (LIST) 111 
how to update (SPZAP) 292 
CURRENT parameter 

(see PRINT control statement) 
current task's main storage, printing of 

(see PRINT control statement) 
CVT address, how to specify 184 
CVT (communications vector table) 

(see CVT= control statement) 
CVT control statement 18 4 
used in PRDMP 
function 184 
format 184 



damage assessment routine 

(see F03) 
DAR (damage assessment routine) 

(see F03) 



for EREP0 
for LIST 
for OSJQD 
for PRDMP 
for PTFLE 
for SPZAP 
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DATA= parameter 

(see GTRACE macro instruction) 
data management records, printing of 188 
DD statements 
in DIPOO 23 

SERERDS 23 
in EREPO 32 

ACCIN 32 

ACCDEV 32 

EREPT 32 

JOBLIB 32 

SERLOG 32 
in LIST 119-124 

input 119-124 

output 119-124 

SYSPRINT 119-124 
in MDMAP 140 

input 140 

SNAPDUMP 140 

SYS ABEND 140 

SYSPRINT 140 

SYSUDUMP 140 
in OSJQD 159 

OSJQDIN 159 

OSJQDOUT 159 

SYSIN 159 

SYSPRINT 159 
in PRDMP 180-182 

any name 180 

PRINTER 181 

SYSIN 181 

SYSPRINT 181 

SYSUT1 182 

SYSUT2 182 

SYSWAPmn 181 

TAPE 180 
in PTFLE 228,229 

OUTF 228,229 

PCHF 228,229 

PRINT 228,229 

PTF.MODF 237 

SYSLMOD 228 

SYSPRINT 228 

SYSUT1 228 

SYSUT2 228 
in SPZAP 288 

SYS ABEND 288 

SYSIN 288 

SYSLIB 288 

SYSPRINT 288 
DDN= parameter 

(see LISTIDR control statement; 
LISTLOAD control statement; 
LISTOBJ control statement) 
DDNAME= Parameter 

(see NEWDUMP control statement; 
EDIT control statement) 
DEBUG= parameter 

(see GTF START command parameters) 
device identification command (JQDMP) 91 
differences between JQDMP and OSJQD 157 
DIPOO service aid 17 

control statements 22 
JCL statements 22-24 
how to run 23-24 
input 22 
DMA1 190 



DSP trace option in GTF 6 2 
DSP parameter 

(see EDIT control statement) 
DUMP control statement 29 3 
used in SPZAP 
example 300 
format 293 
function 293 
parameters 293 
dump title, how to specify 
in LIST 

in LISTIDR control statement 111 
in LISTLOAD control statement 109 
in LISTOBJ control statement 110 
in PRDMP 

in TITLE control statement 185 
dumping main storage 245 
dumping SYSl.LOGREC 29 
DUMPT control statement 29 3 
used in SPZAP 
example 301 
format 293 
function 293 
parameters 293 



EDIT control statement 187-191 
used in PRDMP 
format 188 
function 187 
parameters 188-190 

DSP 190 

EXIT= 188 

EXT 190 

DDNAME= 188 

IO 189 

10= 189 

IO=SIO 189 

IO=SIO= 18V 

JOBNAME= 189 

PI 190 

PI= 190 

SIO 189 

SIO= 189 

SIO=IO 189 

SIO=IO= 189 

START- 188 

STOP= 188 

SVC 189 

SVC= 189 

SYS 189 

TCB= 189 

USR= 190 
EDIT function 

control statement format 188 
defaults 191-192 
error recovery 180 
examples 215-217 
JCL 179-182 
output 207 

output space requirements 194-195 
parameters 188-19 
storage requirements 179 
EDIT parameter defaults 191 
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EDIT parameter priorities 191 
editing GTF trace data 187-191 

from buffers in a dump 215 

from external trace data set 216 
EID 

as field in GTF output 70-71 

extracted by IMDMEDIT macro 322,323 
END control statement 

used in PRDMP 185 
environment records 

as input to EREPO 31 
ER= parameter 

of PRDMP EXEC statement 180 
EREPO service aid 25 

capabilities 29,30 

control statements 32-35 

examples 36-40 

how to execute 32,36-40 

input 31 

JCL 32 

output 41-49 
ESD definition 132 
event identifier 

(see EID) 
examples 

DIP00 23,24 

EREPO 36-40 

GTF 6 8 

LIST 119-123 

MDMAP 146-151 

OSJQD 169 

PRDMP 208-216 

PTFLE 236-237 

SADMP 260,261,263 

SPZAP 300-308 
EXEC statement parameters 

used in GTF cataloged procedure 59 

used in MDMAP 140-142 

used in PRDMP 179-180 

used in PTFLE 238 
EXIT= parameter 

(see EDIT control statement) 
exit routines 

function 313 

sample exit routine 321-323 
EXT parameter 

(see EDIT control statement) 
EXT trace option in GTF 61 



FID 

as field in GTF output 70,77,78 
as parameter in GTRACE macro 67,68 
used in naming format appendage 67 
FID= parameter 

(see GTRACE macro instruction) 
format appendages 
function 313 

sample format appendage 324 
FORMAT control statement 186 
used in PRDMP 
example 212 
format 186 
function 186 



format control statements in 
PRDMP 185-190 

EDIT 187-190 

FORMAT 186 

LPAMAP 185 

PRINT 186 

QCBTRACE 185 

TSO 187 
format identifier 

(see FID) 
FREEnnn parameter 

of PRDMP EXEC statement 179 
function control statements 
in PRDMP 183-185 

CVT= 184 

END 185 

GO 185 

NEWDUMP 184 

NEWT APE 184 

ONGO 185 

TITLE 185 
functions of service aids, summary of 13 
F03 parameter 

(see PRINT control statement) 



GO control statement 185 
used in PRDMP 

format 185 

function 185 

use with ONGO control statement 18 5 
GO option 

(see GO control statement) 
GTF service aid 51 

calculating storage requirements 65 
error recovery handling 69 
output 70-77 

control record format 76-77 

trace record format 70 
recording user data 67-68 

coding the GTRACE macro 67 

printing user data 67 
starting GTF 57-64 

cataloged procedure 59 

prompting 62 

specifying trace options 60-61 

START command 57-58 

storing trace options in SYSl.PARMLIB 
63-64 
GTF START command parameters 57 
devaddr 57 
keyword=option 59 
parmvalue 57-58 

MODE= 57 

TIME= 58 

DEBUG= 58 
procname. identifier 57 
REG= 59 
volser 57 
GTF trace options 60-62 
DSP 62 
EXT 61 
IO,IOP 61 
PI, PIP 61 
PCI 62 
SIO,SIOP 61 
SSM 62 
SVC,SVCP 61 
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SYS,SYSM,SYSP 60 
TRC 62 
USR 62 
GTRACE macro instruction in GTF 67 
effect on EDIT user programs 67 
function 67 
how to code 67 
parameters 67-68 

DATA= 67 

LNG= 67 

ID= 68 

FID= 68 



high-speed dump 

as output of SADMP 
how to print 245 
how to specify 248,249,258-265 



ID= parameter 

(see GTRACE macro instruction) 
IDR 

(see CSECT identification record) 
IDRDATA control statement 

used in SPZAP 292 
IFCDIP00 

(see DIP00 service aid) 
IFCEREPO 

(see EREPO service aid) 
IHLGTF 

(see GTF) 
IMaPTFLE 

(see PTFLE service aid) 
IMASPZAP 

(see SPZAP service aid) 
IMBLIST 

(see LIST service aid) 
IMRMDMAP 

(see MDMAP service aid) 
IMC JQDMP 

(see JQDMP service aid) 
IMCOSJQD 

(see OSJQD service aid) 
IMDPRDMP 

(see PRDMP service aid) 
IMDSADMP 

(see SADMP service aid) 
IMDSADMP macro instruction 

format 254 

function 253 

parameters 254-258 
CONSOLE= 257-258 
CPU= 257 
IPL= 254 
OUTPUT= 255 
PROTECT= 256 
START= 256 
TYPE= 255 
input address parameter in JQDMP 92 
10 parameter (PRDMP) 

(see EDIT control statement) 
10 trace option in GTF 61 
I OP trace option in GTF 61 

(see also prompting, how to request) 
IPL= parameter 

(see IMDSADMP macro instruction) 



JCL 

(see job control language statements) 
job control language statements 
DIPOO 22-24 
32 
119-123 
140 
159 

179-182 
238,239 



EREPO 

LIST 

MDMAP 

OSJQD 

PRDMP 

PTFLE 

SADMP 

for initializing dump program 261 
for retrieving macro instruction 260 

SPZAP 288 
job queue data set 

JQDMP 88-90 

OSJQD 162 
JOBNAME= parameter 

in JQDMP 93 

in OSJQD 163 

in PRDMP 

in PRINT control statement 186 
in EDIT control statement 189 
JQDMP service aid 79 

device identification command 91-93 

error handling 95 

job queue format 88 

operational considerations 102 

output 97-101 

retrieval 15 



LINECNT= parameter 

of PRDMP EXEC statement 179 
link pack area formatting 

(see LPAMAP control statement) 
link pack area maps 
MDMAP 137,146 
PRDMP 185 
LINKPACK parameter 

of MDMAP EXEC statement 141 
LIST service aid 103 

control statements 109-111 
LISTIDR 111 
LISTLOAD 109 
LISTOBJ 110 
examples 119-123 
executing LIST 109-111 

listing a load module 109-110 
listing an object module 110 
listing CSECT identification 
records 111 
features 108 
JCL 119-123 
output 112-118 
LISTIDR control statement 111 
used in LIST 
example 121 
format 111 
function 111 
parameters 111 
listing local fixes 111 
listing PTFs 111 
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LISTLOAD control statement 109 
used in LIST 
example 119 
format 109 
function 109 
parameters 109 
LISTOBJ control statement 110 
used in LIST 
example 120 
format 110 
function 110 
parameters 110 
LNG= parameter 

(see GTRACE macro instruction) 
load module attribute definitions 135-136 
linkage- editor assigned 136 
programmer assigned 135 
load module, definition of 131 
load module listing 
output of LIST 

contents of 115-116 
how to obtain 109 
load module map 

output Of MDMAP 

contents of 143-145 
how to obtain 140 
low speed dumps 
output of SADMP 
printing 250 
specifying 255 
LPAMAP control statement 

used in PRDMP 185 
LPA maps 

(see link pack area maps) 



MDMAP service aid 125 
definitions 

of input 131-138 
of output 143-145 
examples 146-151 
EXEC statement parameters 140 
BASIC 141 
DEBUG 141 
hhhhhh 141 
LINKPACK 141 
input types 

load modules 131 

MFT resident reenterable load module 

area 137 
MVT link pack area 137 
nucleus 138 
JCL 140 

operational considerations 152 
output 143-145 
messages 

(see output comments; output 
error indicators) 
minimal trace 

how to request 61 
MODE= parameter 

(see GTF START command parameters) 
MODF DD statement 

used in PTFLE 229 
modifying data (SPZAP) 28 3 
module definition 

(see load module definition, 
object module definition) 
multiple dump processing (PRDMP) 210 



macro expansion messages (SADMP) 272-273 
main storage, printing of by PRDMP 

allocated storage 186 

current task 186 

specific addressses 18 6 

jobnames, by 186 

DAR terminated task 18 6 

F03 186 
main storage requirements 

EDIT user programs 313 

GTF 5 9 

OSJQD 160 

PRDMP 179 

PTFLE 227 
major control blocks, formatting of 

by PRDMP 186 
maps 

link pack area 137,18 5 

load modules 131 



main storage 
MVT 186 
TSO UMSM 

nucleus 138 



187 



N parameter 

of PRDMP EXEC statement 179 
NAME control statement 289 
used in SPZAP 
example 300 
format 289 
function 289 
parameters 289 
NEWDUMP control statement 18 4 
used in PRDMP 
example 210 
format 184 
function 184 
parameters 

DDNAME= 184 
FILESEQ= 184 
DUMPSEQ= 184 
NEWTAPE control statement 18 4 
used in PRDMP 
format 184 
function 184 
NUCLEUS parameter 

(see PRINT control statement) 
nucleus maps 146 
output of MDMAP 

contents of 146 
how to obtain 146 
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object module, definition of (MDMAP) 131 
ONGO control statement 18 5 
used in PRDMP 
example 210 
format 185 
function 185 
parameters 185 
CVT= 185 
EDIT 185 
FORMAT 185 
LPAMAP 185 
PRINT 185 
QCBTRACE 185 
TSO 185 
relationship to GO control 
statement 185 
OSJQD service aid 153 

control statements 161,162-163 
ALL 163 
END 161 
JOBNAME= 163 
QCR= 162 
JCL 159 
output 164,168 
OUTF DD statement 

used in PTFLE 228,229 
output address parameter in JQDMP 91 
OUTPUT= parameter 

(see IMDSADMP macro instruction) 
output comments 

OSJQD 167 
object module listing 
output of LIST 

contents of 117 
how to obtain 110 
output 

of DIP00 23,24 
of EREPO 41-49 
of GTF 7 0-78 
Of JQDMP 97-101 
of LIST 112-118 
of MDMAP 143-145,147,149,151 
Of OSJQD 164-168 
Of PRDMP 197-207 
of PTFLE 233-235 
of SADMP 248-252 
of SPZAP 296-299 
output space requirements (PRDMP) 193-19 



P control statement 

(see PRINT control statement (PRDMP)) 
parameters 

of control statements 

(see DIP00 service aid; 

EREPO service aid; LIST 

service aid; OSJQD service 

aid; PRDMP service aid; 

PTFLE service aid; and 

SPZAP service aid) 
of EXEC statement 

in GTF cataloged procedure 59 

in MDMAP 140-142 

in PRDMP 179-180 

in PTFLE 227 
in GTF START command 57-59 
in IMDSADMP macro instruction 254-258 



PARM= parameter in EXEC statement 
in EREPO 33-35 

ACC= 35 

CUA= 34 

DATE= 34 

DEV= 34 

HIST= 35 

MES= 34 

MOD= 34 

M67= 35 

PRINT= 35 

RDESUM= 35 

TERMIN= 35 

TYPE= 33 

VOLID= 34 

ZERO= 34 
in GTF cataloged procedure 57-58 

DEBUG= 57 

MODE= 58 

TIME= 58 
in MDMAP 140-142 

base address 141 

BASIC 141 

DEBUG 141-142 

LINKPACK 141 
in PRDMP 179-180 

ER=x 180 

FREEnnn 179 

LINECNT 179 

n 17 9 

S 17 9 

T 17 9 
in PTFLE 228 

SUSE 228 
PCHF DD statement 

used in PTFLE 228,229 
PCI trace option in GTF 6 2 
PI parameter 

(see EDIT control statement) 
PI trace option in GTF 61 
PIP trace option in GTF 61 

(see also prompting, how to request) 
PRDMP cataloged procedure 19 6 
PRDMP service aid 171 

cataloged procedure 19 6 
control statements 18 3 

CVT= 184 

END 185 

FORMAT 186 

GO 185 

LPAMAP 185 

NEWDUMP 184 

NEWT APE 184 

ONGO 185 

PRINT 186 

QCBTRACE 185 

TITLE 185 

TSO 187 
EDIT function 187-191 

control statement 187-191 

defaults 191 

error recovery 180 

examples 215-216 

JCL 179-182 

output 207 

storage requirements 179 
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examples 208-216 
functional summary 175 
JCL 179-182 
output 197-207 
storage requirements 179 
PRINT control statement 186 
used in PRDMP 
format 186 
function 186 
parameters 186 
ALL 186 
CURRENT 186 
F03 186 
JOBNAME= 186 
NUCLEUS 186 
STORAGE= 186 
PRINT DD statement 

used in PTFLE 228,229 
printing and accumulating records 

(EREPO) 38,39 
printing machine check records (EREPO) 

36-37 
prompting, how to request (GTF) 62 
PROTECT= parameter 

(see IMDSADMP macro instruction) 
PTF 223 
PTF.MOD DD statement 

used in PTFLE 237 
PTFLE control statement 230 
example 236,237 
format 230 
function 230 
PTFLE service aid 219 
application function 
control statements 
examples 237 
execution 227-229 
int ro due t ion 225 
JCL 228 

operational considerations 239 
output 233 
generate function 

control statements 230-232 

examples 236 

execution 228 

introduction 223-224 

JCL 228-229 

operational considerations 239 

output 233 



QCB formatting 

(see QCBTRACE control statement) 
QCBTRACE control statement 

used in PRDMP 185 
QCR= parameter 

in JQDMP 92 

in OSJQD 162 
queue control block formatting 

(see QCBTRACE control statement) 



RDE records (EREPO) 35 
RDESUM parameter (EREPO) 35 
reinitializing SYSl-LOGREC data set 
(see DIP00 service aid) 



230-232 



REP control statement 291 
used in SPZAP 
example 300 
format 291 
function 291 
parameters 291 
retrieving stand-alone service aids 
JQDMP 15 
SADMP 15 



S parameter 

of PRDMP EXEC statement 179 
SADMP macro instruction 

(see IMDSADMP macro instruction) 
SADMP output, printing of 

low- speed 

by IEBGENER 26 3 
by PRDMP 177 

high-speed 

by PRDMP 175 
SADMP service aid 

assembling the macro instruction 258-259 

coding the macro instruction 254-258 

error conditions 270-272 

executing the dump program 265-266 

IMDSADMP macro instruction 254 

initializing the residence volume 262-263 

Operational considerations 267-269 

output 248-252 
select options 

(see select parameters) 
select parameters 

in JQDMP 92-93 

in OSJQD 162-163 
SERERDS DD statement 

used in DIP00 123 

(see also OSJQD control statements) 
SETSSI control statement 29 2 

used in SPZAP 
example 300 
format 292 
function 292 
parameters 292 
service aids 13 
SIO parameter 

(see EDIT control statement) 
SIO trace option in GTF 61 
SIOP trace options in GTF 61 

(see also prompting, how to request) 
SNAPDUMP DD statement 

used by GTF 60 

used by MDMAP 140,142,150 
specialized tracing action 56 
specifying the GO option 

(see GO control statement) 
SPZAP service aid 275 

control statements 289-295 

data modification and 
inspection 218-283 

dumping data 284 

examples 300-308 

executing SPZAP 288 

JCL 288 

operational considerations 287 

output 296-299 

updating system status 
information 285-286 
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SSM trace option in GTF 6 2 
START= parameter 

in PRDMP 

(see EDIT control statement) 

in SADMP 256 
STOP= parameter 

(see EDIT control statement) 
storage requirements 

(see main storage requirements) 
STORAGE= parameter 

(see PRINT control statement) 
SVC parameter 

(see EDIT control statement) 
SVC trace option in GTF 61 
SVCP trace option in GTF 61 

(see also prompting, how to request) 
SWAP data sets, how to print 213 
SYS parameter 

(see EDIT control statement) 
SYS trace option in GTF 60 
SYSABEND DD statement 

used in MDMAP 140,142 

used in SPZAP 288 
SYSIN DD statement 

used in PRDMP 181 

used in SPZAP 288 
SYS LIB DD statement 

used in SPZAP 288 
SYSM trace option in GTF 

function 61 

How to request 60 
SYSOUT space, allocation of by 

PRDMP 193-195 
SYSP trace option in GTF 61 

(see also prompting, how to request) 
SYS PRINT DD statement 

used in PRDMP 181 

in SPZAP 288 
system events (GTF) 56 
SYSTEM= parameter 

(see TSO control statement) 
SYSUDUMP DD statement 

used by MDMAP 140,142 
SYSUT1 DD statement 

used in PRDMP 182 

used in PTFLE 228 
SYSUT2 DD statement 

used in PRDMP 182 

used in PTFLE 228 
SYSWAPmn DD statement 

used in PRDMP 181 
SYS1.DUMP data set 

as input to PRDMP 

printing the dump data set 175 
clearing the dump data set 209 
SYS1.LOGREC data set 

changing space allocation 23 

dumping 29 

initializing 23 

processing selected records 29 
accumulating 29,38-40 
editing and writing 29,36-37 
summarizing 30 



T parameter 

of PRDMP EXEC statement 179 
TAPE DD statement 

used in PRDMP 180 
TIME= parameter 

(see GTF START command parameters) 
timestamp 

how to request 58 
field in GTF output 70,77,78 
TITLE control statement 185 
used in PRDMP 
format 185 
function 185 
title, how to specify 

(see dump title, how to specify) 
trace options 

(see GTF trace options) 
tracing with prompting 62 
tracing without prompting 60-62 
TRC trace option in GTF 6 2 
TSO control statement 187 
used in PRDMP 
format 187 
function 187 
parameters 

SYSTEM= 187 
USER= 187 
TSO dumps, how to print 187 
TYPE= parameter 

(see IMDSADMP macro instruction) 
TYPE=HI option 255 
TYPE=LO option 255 



user programs 309 

error handling 317-318 
exit routines 313,321-323 
format appendages 313, 324-325 
interfaces with EDIT 314-318 
parameter list 314 
return codes 317 

USER= parameter 

(see TSO control statement) 

USR= parameter 

(see EDIT control statement) 

USR trace option in GTF 6 2 
(see also GTRACE macro) 



VER control statement 

(see VERIFY control statement) 
VERIFY control statement 290-291 
used in SPZAP 
example 303 
format 290 
function 290 
parameters 290-291 



work data set, use of in PRDMP 182 



342 Service Aids (Release 21) 



GC28-6719-2 



h: 



International Business Machines Corporation 

Data Processing Division 

1133 Westchester Avenue, White Plains, New York 10G04 

[U.S.A. only] 

IBM World Trade Corporation 

821 United Nations Plaza, New York, New York 10017 

[International] 



READER'S COMMENT FORM 

IBM System/360 Operating System: 

Service Aids Order No. GC28-6719-2 



Please use this form to express your opinion of this publication. We are interested in your 
comments about its technical accuracy, organization, and completeness. All suggestions 
and comments become the property of IBM. 

Please do not use this form to request technical information or additional copies of publications. 
All such requests should be directed to your IBM representative or to the IBM Branch Office 
serving your locality. 

• Please indicate your occupation: 



• How did you use this publication? 

□ Frequently for reference in my work. 

□ As an introduction to the subject. 
Q Asa textbook in a course. 

□ For specific information on one or two subjects. 

• Comments (Please include page numbers and give examples.): 



Thank you for your comments. No postage necessary if mailed in the U.S.A. 



GC 28-671 9-2 



YOUR COMMENTS, PLEASE . . . 

This manual is part of a library that serves as a reference source for systems analysts, 
programmers and operators of IBM systems. Your answers to the questions on the back 
of this form, together with your comments, will help us produce better publications for 
your use. Each reply will be carefully reviewed by the persons responsible for writing 
and publishing this material. All comments and suggestions become the property of IBM. 

Note : Please direct any requests for copies of publications, or for assistance in using your 
IBM system, to your IBM representative or to the B3M branch office serving your locality. 



Fold 



Fold 



FIRST CLASS 
PERMIT NO. 81 
POUGHKEEPSIE, N.Y. 



BUSINESS REPLY MAIL 

NO POSTAGE STAMP NECESSARY IF MAILED IN THE UNITED STATES 



POSTAGE WILL BE PAID BY . . . 

IBM Corporation 
P.O. Box 390 
Poughkeepsie, N.Y. 12602 




Attention: Programming Systems Publications 
Department D58 



Fold 



Fold 



International Business Machines Corporation 

Data Processing Division 

1133 Westchester Avenue, White Plains, New York 10604 

[U.S.A. only] 

IBM World Trade Corporation 

821 United Nations Plaza, New York, New York 10017 

[International] 



READER'S COMMENT FORM 

IBM System/360 Operating System: 

Service Aids Order No. GC28-6719-2 



Please use this form to express your opinion of this publication. We are interested in your 
comments about its technical accuracy, organization, and completeness. All suggestions 
and comments become the property of IBM. 

Please do not use this form to request technical information or additional copies of publications, 
All such requests should be directed to your IBM representative or to the IBM Branch Office 
serving your locality. 

• Please indicate your occupation: 



• How did you use this publication? 

□ Frequently for reference in my work. 

□ As an introduction to the subject. 

□ As a textbook in a course. 

□ For specific information on one or two subjects. 

• Comments (Please include page numbers and give examples.): 



Thank you for your comments. No postage necessary if mailed in the U.S.A. 



GC 28-67 19-2 



YOUR COMMENTS, PLEASE . . . 

This manual is part of a library that serves as a reference source for systems analysts, 
programmers and operators of IBM systems. Your answers to the questions on the back 
of this form, together with your comments, will help us produce better publications for 
your use. Each reply will be carefully reviewed by the persons responsible for writing 
and publishing this material. All comments and suggestions become the property of IBM. 

Note : Please direct any requests for copies of publications, or for assistance in using your 
IBM system, to your IBM representative or to the IBM branch office serving your locality. 



Fold 



Fold 



FIRST CLASS 
PERMIT NO. 81 
POUGHKEEPSIE, N.Y. 



BUSINESS REPLY MAIL 

NO POSTAGE STAMP NECESSARY IF MAILED IN THE UNITED STATES 



POSTAGE WILL BE PAID BY . . . 

IBM Corporation 
P.O. Box 390 
Poughkeepsie, N.Y. 12602 




Attention: Programming Systems Publications 
Department D58 



Fold 



Fold 



a: 



International Business Machines Corporation 

Data Processing Division 

1133 Westchester Avenue, White Plains, New York 10604 

[U.S.A. only] 

IBM World Trade Corporation 

B21 United Nations Plaza, New York, New York 10017 

[International] 



